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EDITORIAL 




informatica na socicdade modcrna nao sc limita as atividades cieniifieas ou 
dc pesquisa. Ela atinge todos os setorcs ou atividades profissionais, 
transformando-se em uma fcrramenta podcrosa e eficicnte para todos os usua- 
rios. Nesse sentido, a CP — Computadores Pessoais vem descnvolvcndo com- 
petentes equipamentos, colocando a disposicao da socicdade a mais a\ ancada 
tccuologia em computacao. Para a area da Educacao, ela desenvolvcu o 
DIDATA, sistema utilizado com surprecndentes resultados no Colcgio San- 
to Americo. 

Mas, dependendo da necessidadc do usuario e do software adequado, os com- 
putadores pessoais podem ter qualquer tipo de funcao: de urn inteligcnte pro- 
fissional a urn divertido jogo. Nesta temporada de Formula 1, por exemplo, 
o CP 500 vai as pistas para apostar na Lotus, enquanto que urn CP 400 CO- 
LOR ajuda nas comunidades agricolas da regiao amazoniea. Mas estes sao 
apenas alguns cxemplos do que pode fazer a informatica. Na verdadc, sua 
utilizacao e ilimitada e cumprc urn papel historico no desenvolvimento cien- 
tifico e tecnologico. 

Dai a responsabilidade da industria nacional, que tern a sua frcntc o dcsafio 
de fazer com que o Brasil deixe, a medio prazo, o Tcrcciro Mundo e passe 
a conquistar os beneficios de uma sociedade que controla as tecnologias da 
informacao. 

Carlos Roberto A. Gauch 
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CURSOS 



BASIC — Cepe — Centros dc Proje- 
tos Especiais do Instituio Santa Ama- 
lia. Objetivos: preparar programador 
cm linguagem BASIC, interpretar e al- 
terar programas existcntes no merca- 
do e desenvolver pequcnos sistemas. 
A.v. Jabaquara, 1673 — Sao Paulo — 
telefone: (011)276-3369. 

Linguagem e Software — Instituio 
Compucenlcr de Informatica. Cur- 
sos de extensao universitaria ou pa- 
ra profissionais de todas as areas de 
atuacao, csludantes e interessados em 
informatica. Rua Bela Cintra, 746 — 
1? andar — Sao Paulo — telefone: 
(Oil) 255-2091. 

Operacao e Programacao — Sed Cur- 
sos. Cursos, para adultos e criancas, 
dc operacao, linguagem, programacao 
c analise. Rua Loefgrcn, 1227 — Sao 
Paulo — telefone: (Oil) 549-8902. 

Operacao c Linguagem — Instituio 
Italiano Eugenio Montale. Cursos pa- 
ra adultos e criancas. Operacao, lin- 
guagem, programacao e analise. Avc- 
nida Angelica, 688 — Sao Paulo — te- 
lefone: (Oil) 66-9199. 

COBOL, FORTRAN — Fundacao 
Armando Alvares Pentcado (FAAP) 
— CPD. Varios cursos de extensao 



CARTAS 



Protexto 

Possuo urn CP 500 com dois drives c 
gostaria de mais informacoes sobrc o 
software Protexto, principalmente so- 
bre Carta Padrao, pois nao ha nenliu- 
ma explicacao no manual de operacao 
desse programa. 

Litis Tadeu M. A. da Silva 
Rio de Janeiro — RJ 

Caro Luis, com o Protexto voce tern 
urn dos melhores editores dc lextos na- 
cionais — o que permite varias opcocs 
de edicao. No caso da Carta Padrao, 
siga estas instrucoes: digite sua carta, 



AGENDA 



universitaria, programacao e andlises 
em BASIC, COBOL, FORTRAN. 
Rua Itatiara, 226 — Sao Paulo — te- 
lefone: (011) 826-4233. 

Planilhas Elctronicas — Programa: 
Iniroducao, Conceitos Basicos, Co- 
mandos do Supercalc, Tccnicas Avan- 
cadas. Data: 20 a 23 dc maio. Taxa 
dc inscricao: 30ORTN's. Compucen- 
ter Microinformatica. Telefone: (Oil) 
255-5988. 

Banco de Dados — de 22 a 24 de maio 
— ADP Systems — Divisao de Ensi- 
no. Programa: Iiuroducao, Gerencia 
dc Arquivos, Modelos dc Dados, Sis- 
temas de Gerencia de Banco de Dados, 
Projcto e Administracao dc Aplica- 
cocs, Tendencias de Pesquisas e Desen- 
volvimentos de Banco de Dados. Lo- 
cal: Centro dc Convencocs Reboucas 
(Avcnida Reboucas, 600 — Sao Pau- 
lo). Taxa de inscricao: 50 ORTN's. 
Inscricao pelo telefone: (01 1)223-751 1. 

DBASE — De 29 a 31 de maio. Cur - 
so de dBase II. Horario: das 9:00 as 
17:30. Servimec — Rua Correa dos 
Santos, 34 — Bom Retiro — Sao Pau- 
lo - telefone: (011)222-1511. 

Especializacdes — ABACE — Asso- 
ciacao Brasileira de Administracao e 
Conservacao de Energia — oferecc 
os scguinte cursos: Rob6tica, Auto- 
macao, Controle dc Processos CAD/ 
CAM, nos dias 16 e 17 de maio; e In- 



normalmente, mas reserve espaco pa- 
ra as variaveis, que deverao estar limi- 
tadas por barras (/). De um nome para 
estc arquivo e grave. Depois, abra um 
novo arquivo para as variaveis. Mas, 
atencao: as varidveis deverao, tambem 
neste arquivo, estar limitadas por bar- 
ras (/). Grave este novo arquivo. Abra 
novamente o arquivo da carta. Em 
seguida, acione os comandos @ F. 
Seu computador pedira o arquivo a 
que voce quer unir sua carta. Digite, 
entao, o nome do arquivo das varia- 
veis. Pronto: agora e so dar ocoman- 
do @ P, para a impressao. Veja o 
cxemplo abaixo: 

Arquivo I Arquivo 2 

/nome/ /Luis/ 

/empresa/ /XX/ 

/endcreco/ /XXX, XX/ 

/cidadc/ /Rio de Janeiro/ 

(texto) (variaveis) 
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terfaces e Perifcricos para Microcom- 
putadores, nos dias 20 e 21 de junho. 
Maiores informacoes: Avenida Paulis- 
la, 2073 — Horsa 1 — cj. 1020 — Sao 
Paulo — telefonc: (Oil) 285-2490. 



EVENTOS 



Expo Soft 85 — A exposicao seni rea- 
lizada em Sao Paulo, de 24 a 26 4c ju- 
nho no Ceniro de Convcncoes Re- 
boucas. Durante o evento, esiarao ex- 
postos produtos e servicos como soft- 
ware de base, software aplicativo para 
qualquer computador, servicos de ti- 
mesharing, biros de servicos, consul- 
torias e editoras. 

V Congresso da Sociedade Brasilei- 
ru de Compulacao e XI Conferencia 
Latino-Americunu de Informatica — 

Esses eventos tem a promocao da Uni- 
versidade Federal do Rio Grande do 
Sul e da SBC. Serao realizados em 
Porto Alegrc de 20 a 27 de julho pro- 
ximo. 

27? Salao International de Componcn- 
tes Eletrdnicos — Sera realizado em 
Paris, de 4 a 8 de novembro proximo, 
no Parque de Exposicoes de Paris- 
Nord. No Brasil, os interessados po- 
derao contatar a Promosalons — Rua 
Araquan, 63 — Sao Paulo. 



Comandos utilizados: 

@ Q = para gravacao 

@ F = para unir texto com variaveis 

@ P = para impressao. 

Importante: cm nenhuma outra parte 
de seu texto, voce podera utilizar o ca- 
ractere (/). 



Software CP 400 COLOR 



Sou um novo assinante desta revista. 
Possuo um micro CP 400 e envio-lhes 
esta carta para parabeniza-los pelo su- 
cesso da Geracao Proldgica e em se- 
gundo lugar para solucionar algumas 
duvidas que possuo: 
I. O CP 400 c compativel com qual 
modelo dc TRS 80, em termos de soft- 
ware? 



2. Gostaria de saber se programas pa- 
ra o CP 500 podem ser convertidos pa- 
ra o CP 400. Se isso for possivel, gos- 
taria que publicassem na GP as prin- 
cipals diferencas do CP 500 para o 
CP 400. 

3. Pelo fato de o CP 400 ser um no- 
vo micro no mercado.'eu nao possuo 
muitos programas, por isso, sugiro que 
publiquem mais software na revista. 

Anderson Rodrigues Campos 
Belo Horizonte — MG 

Caro Anderson, agradecemos o elogio 
e esperamos que a nossa revista esteja 
sempre a altura de suas necessidades. 
Quanto as suas duvidas, informamos 
que o CP 400 COLOR e compativel 
com o equipamento TRS 80 nortc- 
americano. A diferenca cntre o CP 400 
e o CP 500 e que o micToprocessador 
de um e completamente diferentc do 
oul.ro: o microprocessador do CP 500 
e o Z-80, e do CP 400, o 6809E. So- 
mente com um estudo muito profun-' 
do dos dois computadores pessoais 
sera possivel converter programas dc 
um equipamento para outro. Por isso, 
fica dificil especificar algum programa 
da Geracao Proldgica que nao neccs- 
site modificacoes. 

Quanto a publicacao de programas 
para o CP 400 COLOR na GP, desde 
o inimero 1 1 , estamos publicando uma 
media de tre« softwares para este com- 
putador pessoal em nosso Encane Es- 
pecial de Programas. Em breve, voce 
tcra tantas listagens para o COLOR 
como ja tem para os outros CPs. 



As tangoes dos CPs 



Tomei conhecimento desta conceitua- 
da revista atraves de um amigo pes- 
soal, que possui um CP 300. Dada a 
seriedade tecnica e editorial desta pu- 
blicacao, gostaria que os senhores mc 
informassem qual o melhor equipa- 
mento que devo adquirir, pois esta e 
a minha intencao, dentro das seguin- 
tes caracten'sticas: sou professor, e gos- 
taria de utilizar o microcompulador na 
minha profissao. Alem disso, tenho 
tres filhos adolescentcs e gostaria de 
inicia-los na informatica, porem,.ne- 
nliiim de nos nunca teve acesso a estes 
equipamentos. Quais as melhores es- 
colas do mercado e como poderei me 
tornar um assinante da revista Gera- 
cao Proldgica? 

Alfredo Gomes Nust 
Sao Paulo — Capital 



Prczado professor Alfredo, a informa- 
tica c uma das mais cficicntcs e podc- 
rosas ferramentas para qualquer ati- 
vidade profissional. Na area da educa- 
cao, especificamente, as experiencias 
demonstram a eficacia em sua utiliza- 
cao. Ncste mimero da Geracdo Prold- 
gica publicamos uma materia com o 
Colegio Santo Americo, que tem uti- 
Iizado com muito sucesso a computa- 
cao. No seu caso, sugerimos que o 
senhor solicite uma demonstracao na 
CP — Computadores Pessoais, dos 
computadores CP 300, CP 400 CO- 
LOR c CP 500. Estes tres equipamen- 
tos, cada um dentro de suas caracte- 
n'sticas, sao poderosas ferramentas da 
informatica. Com qualquer um destes 
equipamentos, o senhor tcra acesso a 
editores de textos, banco de dados, 
planilhas eletronicas, aplicativos edu- 
cacionais e jogos. Quando as escolas, 
na secao Agenda, publicamos uma re- 
lacao de estabclecimentos que dao cur- 
sos de operacao, linguagem, BASIC 
etc. Para se tornar nosso assinante, 
basta preencher e nos enviar o cartao 
especifico dessa revista. Boa sorte! 



Umidade x CP 400 



Gostaria de receber informacoes acer- 
ca dos cuidados que deverei ter com o 
meu microcomputador CP 400, a fim 
de que nao scja danificado com a umi- 
dade, ja que o clima onde rcsido e bas- 
tante limido no outono c inverno. 

Alexandro Past ore 
Caxias do Sul — SP 

Caro Alexandro, o CP 400 COLOR' 
nao nccessita de cuidados cspeciais 
com relacao a umidade; mas, de qual- 
quer forma, voce podera colocar den- 
tro da embalagem (quando guarda-lo) 
um pouco de Silica Gel. Este produto 
retira a umidade excessiva do ambiente. 



ERRATA 

No programa "Como Gerar Som 
no CP 500/300", publicado na 
Geracuo Proldgica n° 8, ha um er- 
ro na linha 60100. Onde diz: 
IF PEEK (16 396) = 0THEN... 
corrija para: 
IF PEEK (16 396) = 201 THEN... 
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SOFTWARE HOUSES 










DISPONIVEIS NO MERCADO 



O seu computador pessoal pode ter a fungao que 



voce desejar: um profissional editor de textos, um 
tecnico em numeros e formulas, um domestico 



controlador de estoques ou agenda e ate mesmo um 



divertido e inteligente jogo. Para isso, basta utilizar 



o software adequado. 



O software e consideratlo a "inteli- 
gencia" dos computadorcs e de seus 
perifericos, pois sem ele as maquinas 
nao desempenham nenluima funcao 
litil. Mas o contrario lambem e verda- 
deiro: seni um corpo (hardware), o 
software perde sua utilidade. Somen- 
te juntos, hardware e software, e pos- 
sivel um sistcma completo de compu- 
tacao. Mas o fundamental e que a re- 
lacao entre os usuarios e o seu compu- 
tador se faz atraves do software. 

Quando o usuario quer se utilizar 
do computador, ele precisa de um soft- 
ware que permita a perfcita interacao 
usuario-hardware. Logo, a funcao que 
o usuario ira destinar ao seu equipa- 
mento depenclera do software que ele 
utilizar. Dai a importancia do conhe- 
cimento dos mais variados programas 
cxistcntes no mercado, compativeis 
com o seu computador, para voce ana- 
lisar suas nccessidades c cscolher o pro- 
grama adequado. 

Os cquipanientos da CP — Compu- 
tadores Pcssoais (CP 200, CP 300, CP 
400 COLOR e CP 500) possucm a mais 
poderosa e variada bibliotcca de soft- 
wares disponiveis no mercado. Por is- 
so, sua utilizacao abre possibilidades 
as mais variadas funcoes: desde o la- 
zer e funcao domestica ate funcoes 
profissionais. Dai a importancia do 
trabalho das software houses: clas de- 
senvolvem c comercializam a grande 
maioria dos programas disponiveis no 
mercado. 



PEEK & POKE 
e o CP 400 COLOR 

Com o CP 400 COLOR, por exem- 
plo, voce tern varias possibilidades, 
tanto pelo poderoso hardware como 
pelo amplo pacote de softwares descn- 
volvidos. 

No mimero 1 1 da Geracao Proldgi- 
ca, publicamos os enderecos de varias 
software houses que comercializam 
programas para seu computador pes- 
soal. Neste numcro, publicamos umas 
lista de software, para o CP 400 CO- 
LOR, que voce podera encontrar na 
Peek & Poke (Avenida Brigadeiro Fa- 
ria Lima, 1664, cj. 1 101 — Sao Paulo). 

A RTISTA: Editor Grafico. Aplicati- 
vo que permite desenhar telas de alta 
rcsolucao com o uso de joysticks ou 
das setas do leclado. Mistura graficos 
e tcxto (fixo ou cm scroll). Permite a 
gravacao, leitura e encadeamento dc 
telas. Requcr 32 K de memoria. 

< 1/ (■■mi): Planilha eletronica com 
256 linhas e 256 colunas. Aplicativo 
que permite a inscrcao dc dados numc- 
ricos, strings ou formulas. Grava e lc 
as planilhas, imprimc parciais e dispoe 
dc recursos como somatoria e funcoes 
trigonometricas. Requcr 32 K de memo- 
ria. 

/•/T/XTO: Processador de textos. In- 
clui recursos de edicSo, como inscrcao 
e delete de letras ou trechos de textos, 



formatacao, acentuacao em portugues; 
utiliza tela de 51 colunas por 24 linhas 
(opcional 64 ou 85 colunas), com 
maiusculas c mimisculas. Requcr 64 K 
dc memoria. 

F.XPANSOR DF. TF.l.A : Utiliza a al- 
ta resolu^ao do CP 400, modificando 
a tela, que passa a ter 51 colunas e 24 
linhas. Pode ser usado em conjunto 
com qualquer programa BASIC. 

SUBERTECj; Reconfigura o teclado, 
onde cada tecla passa a valer por uma 
palavra-chave BASIC. Inclui numcra- 
cao automatica de linhas e uma tecla. 
programavcl. Agiliza muito a digitacao 
de programas BASIC. Roda em 16 K. 

COL OR EDTASM: Editor Assembler 
e monitor cm um so sistcma. Utiliza os 
64 K de RAM do CP 400. Usado para 
o desenvolvimento e depuracao de pro- 
gramas em linguagem de maquina. 

GEOGRABA1: Programa educativo, 
elaborado cm linguagem de maquina. 
Utiliza os recursos de alta resolucao 
para tcstar o conhecimento dos Esta- 
dos e Capitals do Brasil. Requer o uso 
de joysticks e roda em computadorcs 
com 16 K. 

JOGOS: Tubarao, Defesa, Besouro, 
Passaros, Perereca, Hclicoptcro, Espa- 
cial, Sideral, Demonios (para 16 K); 
Cubcr, Armadilha, Gorila, Missao Lu- 
nar, Zaxxon (ver Geracao Prologica n? 
11), Outhouse, Grand Prix, Ataque, 
Quix e Submarino (para 32 K). 
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REPORTAGEM DE GAPA 



APOSTE 
NA LOTUS 



Ayrton Senna e o CP 500 garantem 




O Brasil deu a largada para o gran- 
de show de pericia, emocao e veloci- 
dadc do Campconato Mundial de For- 
mula I, na temporada de 85. A infor- 
matiea, que ha tempos vein aceleran- 
do os Grandes Premios com a compu- 
tacao de dados, tomou partido nesta 
temporada e est a apostando na Lo- 
uis/ John Player Special de Ayrton 
Senna e Elio de Angelis. 

As apostas estao sendo I'eitas atra- 
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ves do CP 500 e urn software especffi- 
co, desenvolvido pela CP — Computa- 
dores Pessoais, numa promocao con- 
junta com a Souza Cruz e Rede Ban- 
deiranles. 

O mais importante e que essa pro- 
mocao e totalmente democratica: qual- 
quer pessoa podc participar, apostan- 
do cm que lugar chegara o carro da 
Lotus. Como cxistem dois carros, va- 
le sempre a melhor posicao, ou do 



Nesta temporada de 

Formula 1, a informatica 

sai dos bastidores e 

aposta na Lotus 

de Ayrton Senna, em • 

todos os Grandes Premios. 

comoCP500. 



Ayrton Senna ou do Elio de Angelis. 

A cada GP, os apostadorcs que 
acertarem o lugar de chegada da Lo- 
tus concorrerao a varios premios e, no 
final da temporada, os sorteados de ca- 
da corrida concorrerao, mais uma vez, 
a premios especiais. 

O proprio Ayrton Senna tentou a 
sorte fora das pistas. Antes do Gran- 
de Premio Brasil, em Jacarcpagua, cle 
apostou que chegaria em 1 ? lugar. Mas 
deu azar na 50? volla, seu carro que- 
brou por defeitos na parte eletrica. No 
entanto, quern apostou no 3.' lugar 
acertou, pois Elio de Angelis subiu ao 
podium na terceira posicao. 

Ja no Grande Premio de Portugal, 
em Estoril, da pole-posit ion ao primei- 
ro lugar no podium, Ayrton Senna bri- 
Ihou com a conquista de seu primeiro 
GP. Qucm acrcditou em Senna, apos- 
tou e ganhou. 



REPORTAGEM DE GAPA 



ONDE APOSTAR 

Em todos os Grandcs Premios da 
tcmporada de 85, voce [era oportuni- 
dade de apostar na Lotus nos postos 
de apostas de Sao Paulo, Campinas e 
Rio de Janeiro. 

Em Sao Paulo, voce tcra urn CP 500 
a sua disposicao nos scguintes locais: 
Shopping Norte, Shopping Iguatemi, 
Shopping Eldorado, FMU — Faculda- 
des Metropolitanas Unidas — e Cur- 
so Anglo. Em Campinas, no Shopping 
Iguatemi; e no Rio de Janeiro, tambem 
nos principals pontos de comereio. 
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Nestes locais, havera sempre um 
responsavel pelas apostas e pela correta 
ulili/acao do computador. Mas isso 
nem seria preciso, pois o programa 
utilizado pelo CP 500 e muito simples. 
O apostador so preeisara digitar sou 
nome, endereco complete telefone e 
aposta. 



COMO APOSTAR 



O participante podcra escolher en- 
tre 7 opcoes: do 1" ao 6? lugar ou a 
aposta 0, que significa qualquer outra 
posicao que nao conte ponto para o 
campeonato. 

Estas apostas ficam gravadas em 
disquetes (900 apostas por disquete) e 
sao enviadas para a CP — Computa- 
dores Pessoais, responsavel pelo ar- 
mazenamento, gravacao e sorteio com- 
putadorizado. 

Como a promocao APOSTE NA 
LOTUS pefmanccera durante toda a 
tcmporada de Formula 1, as apostas, 
a cada Grande Premio, poderao ser 
feitas uma seinana antes da corrida e 
o sorteio sera realizado sempre uma se- 
inana depois, aos domingos e ao vivo 
no Show do Esporte, pela TV Bandei- 
rantes. 



PREMIOS 



A cada Grande Premio sera rea- 
lizado tres sorteios entrc os acerta- 
dorcs. Primciro e sorteado o disquete 
e, depois, os numeros das apostas acer- 
tadoras, pois o programa desenvolvi- 
do pela CP seleciona as apostas cor- 
retas contidas nos disquetes, automa- 
ticamente. 

Entre os apostadores vencedores se- 
rao sorteados os seguintes premios: 
uma moto Honda, uma TV a cores e 
um computador pessoal. 

Mas os premios nao param por ai: 
no final da tcmporada, os acertadores 
premiados a cada Grande Premio con- 
correrao a mais premios: um Ford Es- 
cort J PS, um aparelho de TV com 
videocassete e camera, uma viagem a 
Itaparica, com uma semalia de hospe- 
dagem no Club Mediterranee, um con- 
junto de rodas magnesio, um conjunto 
de bancos para automovel e um teto 
solar para automovel. 




OS PRIMEIROS 
VENCEDORES 



No Grande PrC'inio Brasil, a primei- 
ra corrida da tcmporada 85, mais de 
40 000 pessoas fizeram suas apostas. 
Apesar de o carro de Ayrton Senna ter 
quebrado na 50? volta, Elio de Ange- 
lis conquistou o 3? Iugar no podium. 
E e justamente isso que vale: o melhor 
lugar conquistado por um dos dois car- 
ros Lotus/John Player Special. 

Dos 40 000 apostadores, 23, 80% 
acertaram, apostando no 3" lugar. O 
sorteio desse Grande Premio foi reali- 
zado no Show do Esporte de 14 de 
abril proximo passado. 

Os ganhadorcs foram: 

1 ° Premio: CP 200 S — Disquete n'.' 
7, aposta nf 498 — Dorival Apareci- 
do Galon — Osasco — Sao Paulo. 

2? Premio: TV a cores — Disquete 
n? 8, aposta n" 403 — Fernando de 
Carvalho — Capital — Sao Paulo. 

3? Premio: Moto Honda — Disque- 
te n? 6, aposta n" 256 — Manoel Mo- 
rais — Campinas — Sao Paulo. 




CALENDARIO DE 1985 



7 de 

21 de 
5 dc 

19 de 

2 de 
16 de 
23 de 

7 dc 

20 de 
4 de 

18 de 
25 de 

8 de 

22 de 
13 de 

3 de 
16 dc 



abril 

abril 

maio 

maio 

junho 

junho 

junho 

julho 

julho 

agosto 

agosto 

agosto 

setembro— 
setem bro- 
om ubro — 
novenibro- 
novembro. 



_GP do Brasil, Jacarepagua 

_GP de Portugal, Estoril 

.GP de San Marino, Imola (Italia) 

_GP de Monaco (rua) 

.GP da Belgica, Spa-Francorchamps (rua) 

.GP do Canada, Gilles Villeneuvc, Montreal 

.GP de Detroit, EUA (rua) 

.GP da Franca, Paul Ricard 

.GP da Gra-Bretanha, Silverstone 

.GP da Alemanha, Hockenheim ou Nurburgring 

.GP da Austria, Osterreichring 

. GP da Holanda, Zandvoort 

.GP da Italia, Monza 

.GP de Nova Iorque, Flushing Meadows (rua) 

.GP da Europa, Mugcllo (Italia) 

.GP da Australia, Adelaide (rua) 

.GP da Africa do Sul, Kyalami 
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CLUBE 




A 



s adesoes ao CLUBE CP's tern 



sido surpreendentes. Nao so pelo numero de interessados, 
mas, principalmente, pela necessidade de 



informagoes dos usuarios, quer seja 



quanto a hardware ou software. 



Neste numero, atendemos algunsde nossos socios. 



Disco Rigido 

Luis Alberto Cavalcanti, possuidor 
de uni CP 500 e engenheiro cm Reci- 
fe, quer mais informagoes sobre discos 
rigidos. 

Luis, os discos rigidos podem ser 
enconirados nos tamanhos de 5 1/2 e 
8 polcgadas. Sua capacidade de arma- 
zenamento varia de 5 a 70 megabytes, 
dependendo do seu tamanho, da den- 
sidade c do formato de gravacao. O 
disco em si e uma unidade rigida, re- 
coberta por um material magnet ico de 
alta qualidade. O cabecote se desloca 
sobre o disco para tcr acesso as suas 
trilhas, exatamente como no sistema de 
disco flexivcl. Contudo, o disco e lu- 
brificado. O conjunto composto pelo 
disco e pelo cabecote e hermeticamen- 
te fechado num gabincte plastico a fim 
de evitar a infiltracao de sujeira e con- 
taminadores.Essas unidades de disco 
sao chamadas de Winchester. 

A alta qualidade do meio de grava- 
cao, a alta velocidade de rotacao (nor- 
malmente de 3 600 rpm) e a ausencia 
de problemas de alinhamento do cabe- 
gote, associadas a elcmentos removi- 
veis, tais como disquetes, garantem aos 
discos rigidos um mimcro maior de tri- 
lhas (ate 600) e uma maior densidade 
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de gravagao. Isso faz com que os dis- 
cos rigidos tenham duas vantagens 
principals sobre os disquetes: maior ca- 
pacidade de armazenamento e menor 
tempo de acesso aos dados. Uma uni- 
dade de armazenamento Winchester 
comum, com um disco de 8 polcgadas, 
podc armazenar 8,4 milhoes de bytes. 
Iissa foi uma explicacao geral, Luis. 
Aguarde para o proximo niimcro, uma 
materia especifica sobre o CP 
500/Winchestcr. 

Software para a Medicina 

O pediatra Carlos Nogueira de Al- 
meida, do Rio de Janeiro, pediu infor- 
magoes sobre onde enconlrar um 
programa para sua clinica. Alem des- 
se software especifico, o doutor Car- 
los tambem precisa de um editor de 
textos e um programa Mala Direta. O 
doutor Carlos so esqueceu de informar 
qua! o seu equipamento! 

No cntanto, como voce es4a com 
muita pressa (boa sorte na inaugura- 
gao da nova clinical), o CLUBE CP's 
selccionou algumas software houses, 
para solucionar seu problema. Sc o seu 
equipamento for um CP 500, procure 
a Nasajon Sistemas (Avenida Rio 
Branco, 45 — grupo 1311 — Rio de 
Janeiro). Eles possuem o Cadastro de 



Clientes para Clinicas Medicas, o 
Emissao de Mala Direta, o Mala Di- 
reta com Editor de Textos, entre ou- 
tros. Mas, se 6 seu equipamento for o 
CP 400 COLOR, procure o Color 
Club (Caixa Postal 9079 — Rio de Ja- 
neiro) c a Kristian Eletronica (Rua 
Gonzaga Basics, 112 — Rio de 
Janeiro). 



Planilha Eletronica 

Ricardo Soares, engenheiro agrono- 
mo de Manaus, possuidor de um CP 
400 COLOR, precisa de uma planilha 
eletronica. O Ricardo foi bem claro, 
quanto a um problema: nao tern con- 
digoes financciras para comprar um 
software nos proximos meses. "Mas 
este programa ajudaria muito o meu 
trabalho junto as comunidades agrico- 
las aqui da regiao", escrevcu Ricardo. 

Dada a importancia social do tra- 
balho do engenheiro, a software hou- 
se Peek & Poke, de Sao Paulo, cedeu 
uma planilha eletronica — o MINI- 
CALC — para veiculagao no CLUBE. 
Por falta de espago, publicamos o pro- 
grama no Encarte Especial de Progra- 
mas deste numero da Geracclo 
Proldgica. Todos aqui 'do CLUBE, de- 
sejamos muita sorte ao engenheiro Ri- 
cardo e as comunidades agricolas. 



CURSOS 



I 




ANALISE E CRIACAO 





DE UMA MALA DIRETA 




PARTE 



Controle sobre o numero 



de registros gravados no arquivo. 



Luiz Antonio Borha 



No numero anterior, nos vimos o 
infcio do cadastramento e a critica da 
entrada de dados. Veremos agora co- 
mo efetuar o controle sobre o numero 
de registros gravados no arquivo. 

O arquivo randomico pode ser usa- 
do de duas manciras distintas: uma, 
como se fosse um arquivo scqiicncial, 
isto e, com'acesso aos registros em se- 
qiiencia numerica; a outra, com aces- 
so aleatorio pelo numero do regislro. 

Vcjamos a primeira maneira: pa- 
ra um acesso scqiicncial, necessita- 
mos criar uma variavel contadora, que 
permite fornecer a cada registro um 
numero inteiro (variavel inteira do 
BASIC, cujo simbolo e %), que pode 
variar de 1 a 32 767. E sempre conve- 
nicnte que esta variavel seja inicializa- 
da com o valor 1 , pois a cada gravacao 
ela podera ser incrementada, como ve- 
remos a seguir. Para o inicio do cadas- 
tramento, nao ha nenhum problema, 
pois basta, no comeco do programa, 
colocarmos uma linha do tipo: 

15 1X% = 1 

e a cada gravacao, incrementamos tal 
variavel fazendo IX97o = IX% + 1 . Mas 
como poderiamos, numa outra oca- 
siao, continuar a gravacao do nosso ar- 
quivo? Existcm varias manciras. A 
mais simples e a utilizacao do primei- 
ro registro do arquivo como armaze- 
nador do numero de registros (indice) 
ja gravados no arquivo. 
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Para isso, devemos usar um peque- 
no truque, que c criar um FIELD, es- 
pecial para estc registro em particular, 
pois ele sera difercnte de todos os ou- 
tros do arquivo. Mas devemos ain- 
da contornar outro problema: e quan- 
do o arquivo nao possuir nenhum re- 
gistro gravado (arquivo novo)? E fa- 
cil. Basta um teste para verificar se o 
arquivo se encontra em scu final (tes- 
te de EOF). 

Vamos a um exemplo: 

10 CLEAR 2000: CLS: ' RESERVA ES- 

PACO DE STRING E APAGA A TELA 

20 IX% = 1 

30 OPEN "R", 1, "ARQUIVO/DAT", 110 

40 FIELD 1, 2 AS IXS, 108 AS ZZS 

45 FIELD 1, 30 AS NOS, 40 AS ENS, 13 

AS TLS. 20 AS CDS, 2 AS ESS, 5 AS 

CPS 

50 GET 1, IX% 

60 IF EOF (1) THEN 70 ELSE IX% = CVI 

(IXS) 

70 ' CONTINUACAO DO PROGRAMA 

Ora, neste exemplo nos temos os 
2 FIELDS para o mesmo arquivo. 
Quando vamos utilizar a nossa varia- 
vel indice, lemos o regislro e usamos 
a variavel IXS; quando for um regis- 
tro normal, lemos da mesma maneira 
c usamos as outras variavcis (do segun- 
do FIELD). E importantc notar que 
ambos os FIELDS tern o mesmo tama- 
nho logico, isto e, 110 bytes, sendo 
portanto a variavel ZZ$ sem nenhuma 



utilidade (variavel DUMMY) — a nao 
nao ser para compatibilizar os dois re- 
gistros. Quando fazemos o GET 1, 
IX% (lembre-se que IX% = 1 na linha 
20), testamos se o arquivo esta vazio 
ou nao. Se estiver vazio (EOF verda- 
dciro), o IX% continuara com o va- 
lor 1, senao, a IX% sera atribuido o 
valor (numerico) de IXS, que e o nu- 
mero de registros do arquivo. 

Finalmente, nao podemos esquco.r 
que, ao encerrarmos a gravacao do ar- 
quivo (dados normais), devemos gra- 
var o numero de registros na primeira 
posicao do mesmo arquivo, da seguin- 
te maneira: 



300 MX% = 1: ' NUMERO DO REGIS- 
TRO A SER GRAVADO 
310 LSET IXS = MKIS (IX%): ' CONVER- 
TE O VALOR DE IX% EM STRING E O 
TRANSFERE PARA O FIELD (BUFFER) 
320 PUT 1, MX%: ' GRAVA O REGIS- 
TRO NUMERO 1 (VALOR DE MX%) 
330 CLOSE 
340 END 

O valor de 1X% e o novo numero 
de registros do arquivo, que sera gra- 
vado na mesma posicao do anterior, 
solucionando, assim, o problema de 
aumentar o numero de registros do ar- 
quivo e mauler um controle total so- 
bre isto. 
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CURSOS 




RSO DE BASI 




liqao viii 




A sub-rotina e um pequeno programa 
inserido no programa principal. Esse e 



um dos conceitos que Marilena Occhini 



Siviero explica nessa importante ligao de 



BASIC: o conceito de sub-rotina. 



Muitas vezes, em uma programa- 
Bo, um trccho de programa se repe- 
te. Escreve-lo constantemente torna a 
tarefa macante e ineficicnte, porque o 
[recho repetido, cada vez que isso 
DCOi re, ocupa novas posicocs de me- 
moi ia. O que fazer? A solucao e sim- 
ples. Imagine o I recho de programa 
como sendo uma caixa com um nome, 
por exemplo, 300. 

Quando o computador ler uma ins- 
trucao que o mande para a caixa 300, 
ele para de execular o programa prin- 
cipal, vai a caixa, executa o conteudo 
da caixa e retorna ao programa pi in- 
cipal. Caso seja necessario, ele, em ou- 
tro ponto do programa, voltara a caixa 
300. A cste procedimento damos o no- 
me tie sub-rotina. 

A sub-rotina e um pequeno progra- 
ma inserido no programa principal. 
Lin BASIC, a insirucao que manda o 
computador execular uma sub-rotina 
e a insirucao GOSUB. A sub-rotina e 
precedida por um niimcro de linha e 
jssta" localizada no final do programa, 
sempre apos a instrucao END ou 
S I ( iP. A insirucao RETURN marca 
t'im da sub-rotina, indicando ao 
computador que ele deve rctornar ao 
programa principal, na linha seguinic 
a da instrucao GOSUB. 

A sub-rotina e idenlil'icada pelo scu 
mimero de linha ou por um nome for- 
necido pela insirucao REM, que pode 
aparecer na primeira linha da sub- 
rotina. 



Abaixo, um exemplo do programa 
que calcula a media de um grupo de 
alunos: 



10 REM CALCULO DA MEDIA PON- 

DERADA 

20 DATA 8, 3, 3, 10, 1.5, 2, 2, 0, 0, 5.7. 3.9, 

1, 9, 6.3, 10, 3.o 

30 REM LEITURA DAS NOTAS DE TESTES 

40 FOR I = 1 TO 4 

50 READ N(l) 

60 NEXT I 

70 REM CHAMADA DA SUB-ROTINA DE 

CALCULO DE MEDIA ARITMETICA DOS 

TESTES 

90 GOSUB 330 

100 LET M1 = XI 

110 REM LEITURA DAS NOTAS DE PROVA 

120 FOR 1 = 1 TO 4 

130 READ N(l) 

140 NEXT I 

150 REM CHAMADA DA SUB-ROTINA DE 

CALCULO DE MEDIA ARITMETICA DAS 

PROVAS 

170 GOSUB 330 

180 LET M2 = X1 

190 REM CALCULO DA MEDIA PON- 

DERADA 

200 LET F = (M1 + 2'M2)/3 

210 REM IMPRESSAO FINAL 

220 PRINT "MEDIA FINAL"; X; " = "; F; 

230 IF F> = 5 THEN PRINT "APROVA- 

DO!!!" ELSE PRINT "REPROVADO" 

240 LET X = X + 1 

250 IF X>2THEN GOTO 300 

260 PRINT 

280 PRINT 

290 GOTO 40 

300 END 

310 REM SUB-ROTINA PARA O CALCULO 

DAS MEDIAS ARITMETICAS DE PROVAS 

E TESTES 

330 LET X1 = 



340 FOR I = 1 TO 4 
350 LET X1 = X1 + N(l) 
360 NEXT I 
370 LET X1 = X1/4 
380 RETURN 

Na linha 90 do nosso programa, 
ocorre a chamada de uma sub-rotina: 
a sub-rotina de calculo da media arit- 
metica dos testes. O motivo de usa-la 
neste programa e que a mesma sera uti- 
lizada novamente na linha 170, para 
calculo da media aritmclica das pro- 
vas. A razao para isso e simples: o mi- 
mero de provas e testes c o mesmo e 
o processo de calculo tambem. 

Outro fator a ser reparado: a sub- 
rotina foi escrita logo apos a instrucao 
END. Se isso nao ocorresse, o compu- 
tador continuaria seguindo o progra- 
ma, e.xecutando novamente 
sub-rotina c acusando erro ao encon- 
trar a insirucao RETURN. 

Um outro uso para a sub-rotina e 
fazer pequenos trechos de programa, 
que sao normalmente usados em varioS 
programas diferentes. Um exemplo 
disso e o calculo de fatorial. A sub- 
rotina e simples. Observe: 

900 REM SUB-ROTINA PARA CALCU- 
LO DO FATORIAL DE N 
1000 LET F = 1 

1010 FOR I = 1 TO N LET F = F'l 
1020 NEXT I 
1030 RETURN 

Se num detcrminado program. i 
principal prccisarmos do fatorial de A, 
deveremos incluir as instrucoes: 

100 LET N = A 
110 GOSUB 900 
120 PRINT F 

Podemos ter, entao, um "arquivo" 
de sub-rotinas e, quando precisannos 
de uma delas, e so pesquisar e inclui- 
la no programa, com as devidas mo- 
dificacoes (numero de linhas e nome tic 
variaveis). Sugerimos que voce use pa- 
ra isso um caderno ou, se seu compu- 
tador pode gravar programas em fiia. 
disquctcou disco; reserve uma fit a ou 
trccho de um disco ou disquetc para es- 
tas sub-rotinas. 
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MUNDO DA 

INFORMATICA 




pesquisas 
no 



URSS 



na Intelsat 

A Uniao Soviet ica so- 
licitou sua adescio a Or- 
ganizacao International 
de Telecom uni cacao 
por Sat elite — Intelsat 
— , a qua! agrupa 109 
pai'ses de todo o mun- 
do. A iniciativa se deve 
a necessidade da URSS 
em contar com uma tec- 
nologia mats avancada 
no campo das telecomu- 
nicacoes, pois o seu sis- 
tema Intersputnik tern 
demonstrado algumas 
deficiencias nas comu- 
nicacoes internacionais 
via satelite. 



JAPAO 



2*X 



iputadores 




Nao sao so os norte- 
americanos que trans 
formam a ficgao em 
realidade: os gran- 
des fabricantes de com- 
putadores do Japao 
(Nee, Hitachi, Matsu- 
shita e Uniden Corpora- 
tion) estao financiando estudos destinados a ex- 
plicar cientificamente as atividades paranormais, 
pois consideram que fenomenos como a telepa- 
tia e o sexto sentido desempenharao, no futuro, 
um papel fundamental no desenvolvimento das 
telecomunicacoes. 
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csta implantando no metre um sitfema 6es aos 

.adores para 0^^^^ o secretario Al- 
usuarios do transporie. ^ ° ^ ^ prc . 

nunoAfonsc , os^ ^ s 7 ^3 05 . Para ele »■ 
vista a implantacao de /u a, ^ d cullura i na 

introducao dos micros ^5 " funcionarios como dos 




PRONET 



NO PARANA 




Ml I MMJRICIO 



Os deputados paranaenses 
agora dispoem de mais 
tempo. E que a 
Asscmbleia Legislativa do 
Parana adquiriu uma rede 
Pronet com 8 micros 
Super 700 da Prologica e 
5 impressoras P-720, 
instalando um sistema 
pioneiro que vai agilizar 
os trabalhos de controle e 
emissao de 
correspondencia, 
dministracSo legislativa, 
apoio tecnico e controle de 
processos. 



presidente do Serpro, Jose Dion 
de Melo Teles, recebeu o titulo de 
"Personalidade de Informatica de 
1984", conferido pela Associagao 
Nacional dos Dirigentes e Execu- 
tives de Informatica — Andei. 
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BIOCHIP 



uma 
ficcao? 



Pode parecer ficcao, mas 
nao e. No futuro, os compu- 
ladores poderao scr opera- 
dos pelo cerebro humano, 
atraves dos impulsos dos 
nervos. Para tanto, os cien- 
(isias norte-americanos estao 



trabalhando em uma especie 
de biochip, um circuito intc- 
grado dcscnvolvido pelo de- 
parlamenio de bioengenharia 
do Instituto Tecnologico de 
Massachusetts, principalmen- 
te para utilizacao na medicina. 




A VOZ DOS ROBOS 



A sintetizacao de voz pa- 
ra robos ganha nova dimen- 
sao com o lancamento de 
dois CIs da General Instru- 
ment Corp. 

Um e o integrado alofo- 
nico SP0256A- A 1 2, que de- 
sempenha todas as funcoes 
de sfntese. Ao contrario dos 
sintetizadores fonemicos, 
que armazenam somente 
uma versao de cada som, es- 
se integrado produz ate tres 
variantes de varios fonemas, 
que importa num discurso 
sintctico mais intcligivel. 

O outro e o microproces- 
sador de 8 bits CTS256A- 
A12 que controla o endere- 
camento alofonico tendo co- 
mo base um con junto de 400 
regras de traducao fonemi- 
ca. A medida que o usuario 
introduz o texto em caracte- 
res ASCII, o algoritmo de 




traducao efetua a varredura 
do codigo, examina os con- 
textos da esquerda para a di- 
reita e consulta a tabela de 
traducao dos enderecos alo- 
fonicos apropriados. 



INTELIGENCIA 
ARTIFICIAL 



A inteligencia artificial 
ainda e uma area da informa- 
tica inaccssivel ao hobista. 
Ha, porcm, algumas tcntati- 
vas de popularizacao. 

Uma delas c o GCLisp da 
Gold Hill. Esse pacote con- 
tem uma versao mais sofisti- 
cada do interpretador GCLisp, 
um compilador GCLisp e 
uma otima documentacao. 

Desenvolvido a partir da 
Lisp, a linguagem mais popu- 



lar da inteligencia artificial, 
cle c capaz de enderccar ate 16 
megabytes de memoria fisica 
e explorar toda a capacidade 
computacional do PC-AT. 

Os PC-ATs com, no mini- 
mo, 3 megabytes de memoria, 
um disco rigido de grande ca- 
pacidade, um co-processador 
matematico 80287 da Intel e 
um monitor de video em co- 
res constituem a configura- 
cao ideal para essa maquina. 



TELEMATICA 



A democratizacao das informacocs no Brasil 
nunca csteve tao proxima como agora, com a via- 
bilizacao dos varios bancos de dados e o inicio das 
operacoes do primeiro satelite domestico brasilei- 
ro, o Brasilsat. 

Hojc, alem dos conhecidos Videotexto e Ciran- 
dao, os usuarios de microcomputadores tambem 
podem ter acesso ao banco de dados do governo, 
via telefone: o sistema Aruanda, o banco de dados 
claborado para tornar piiblicas as informagocs co- 
lctadas por orgaos do governo, tambem pretende 
democratizar suas informacocs. 

Estc sistema csta instalado nos computadorcs da 
1 - 1 URO (Unidade Regional de Operacoes) do Ser- 
pro, em Brasilia, que rcaliza o servico de processa- 
mento de dados de ministerios e grande numcro de 
orgaos piiblicos. Nesta unidade, estao armazena- 
das milhares de informacoes que, se organizadas ra- 
cionalmente, podem ser abcrias para uso da 
sociedade, atendendo as mais diversas finalidades: 
pesquisas academicas, empresariais e sindicais, en- 
trc outras. 

Se o seu equipamento de computacao ja inclui 
um modem para conectar o micro ao telefone, vo- 
ce ja pode utilizar o sistema Aruanda, discando via 
DDD para o niimero do Aruanda, no Distrito Fe- 
deral, e obter informacoes contidas em mais de dez 
bases de dados, como: nomes, enderecos, CGC e 
outros dados sobre cerca de 2 milhoes de emprcsas 
rcunidas pelo Cadastro Nacional de Empresas 
(CNE); informacocs numcricas economico- 
financeiras sobre 146 paises membros do Fundo 
Monetario Internacional (FMI) e sobre algumas en- 
tidades relacionadas com o orgao, alem de varias 
outras informacoes. Tambem a partir do Aruanda 
voce podera ter acesso a lista de todos os softwares 
nacionais ou cstrangciros registrados junto a Sccre- 
taria Especial de Informatica — contidas na base 
Prosoft. 

As informacoes contidas no Aruanda sao orga- 
nizadas atraves do software gerenciador de bases 
de dados Adabas, o que permitc uma linguagem 
conversacional com o usuario, durante os acessos 
de pesquisa. O sistema tern capacidade para 200 ba- 
ses de dados e, alem de prestar o servico de consul- 
tas, o Serpro pode dar tambem tratamento as 
informacoes de fornecedores, organi/.ando-as em 
bases de dados relacionais. 

Para Adval Rabello, diretor do Desenvolvimcn- 
to de Sistemas do Serpro, as informacoes coleta- 
das pelos orgaos de governo sao piiblicas e a 
democratizacao do acesso as mesmas deve ser sem- 
prc ampliada, acompanhando o processo de demo- 
cratizacao do Pais. 
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JJIUAS 



A VELOCI 



BASIC 



Neste nuinero, a secao Dicas ira concentrar-se cm urn topico 
nuiito importante para os programadores em BASIC: a veloci- 
dade. O CP 500 e o CP 300 usam o microproccssador Z-80, que 
e muito rapido, para nao dizer urn dos mais rapidos na catego- 
ria de 8 bits. Assim scndo, deduzimos que, para agilizarmos o 
BASIC, devemos unir suas vantagens, aquelas da programaclo 
em linguagcm de maquina, tornada possivel por meio das roli- 
nas USR. 

Nesta cdicao, veremos uma aplicacao especial dessas retinas, 
para a qual nao sera necessario conhecimento prcvio de coman- 
dos do proccssador Z-80: mostrarcmos uma sub-rolina cscrita 
cm linguagcm ASSEMBLY, sendo que, se houver disponibilida- 
de de urn EDITOR-ASSEMBLER, podera ser chamada dircta- 
mcnie apos carregada e mostrarcmos tambem o resuliado da 
sub-rotina convertida para o BASIC, ludo comcmado cm dcta- 
Ihes. A pariir dai, a imaginacao do programador ira expandir 
esse pequeno universo que lentamos mostrar aqui. 

Escrevercmos urn programa coniendo uma curia sub-rotina, 
que possa copiar o conteiido da posicao (zero) do video para 
as outras 102.1 nele existentes; por cxcmplo, se imprimirmos "X" 
na posicao 0, a chamada dcsta sub-rotina ira cnchcr a tela com 
"xis". 

Eis o programa: 

00010; ENTELA /// SUB-ROTINA PARA ENCHER A TELA 
00020; 

; ORIGEM INICIO 

; HL APONTA PARA 

; DE APONTA PARA 1 

; REPETIR 1023 VEZES 

; HL P/ DE. REPETIR 

; RETORNAR (AO BASIC) 

A linha 30 especifica a origem da rotina USR; FFF0 esta 16 
bytes aquem do final da memoria RAM do CP 500 (CP 300); 
as linhas 40 ate 80 contc-in a sub-rotina propriamcnte dita. Car- 
regamos o registrador HL com o endereco do primeiro byte da 
tela do CP 500/300, e o registrador BC com 1023. O comando 
I.DIR copia o byte "setado", ou seja, apontado por HL para 
a posicao apontada por DE; adiciona 1 para HL c DE e subtrai 
1 de BC. Isto sera repetido ate que BC seja igual a zero, o que 
significa que o contetido do primcircf byte da tela foi copiado 
1023 vezes, posicao apos posicao; a linha 80 contem o comando 
RET, similar ao RETURN do BASIC; se este programa foi "cha- 
mado" pelo BASIC por meio de USR, o RET fara com que o 
programa (em BASIC) continue sendo executado a partir da pro- 
xima instrucao apos a chamada USR; finalmente, a linha 90 co- 
loca o END, obrigatorio em ASSEMBLY. 

Uma vez digitado, o programa devera ser asscmblado c gra- 
vado. Quando isto ocorrcr, cada linha de instrucao ira gerar po- 
sicoes de memoria e mncmonicos. a saber: 



00030 


ORG 


0FFF0H 


00040 


LD 


HL, 15360 


00050 


LD 


DE.15361 


00060 


LD 


BC.1023 


00070 


LDIR 




00080 


RET 




00090 


END 





FFF0 
FFF0 
FFF3 
FFF6 
FFF9 
FFFB 



21003C 

11013C 

01FF03 

EDB0 

C9 



10 
20 
30 
40 
50 
60 
70 
80 
90 



00000 TOTAL ERRORS 



Suponhamos que essa rotina tenha sido gravada com o nome 
de "ENTELA"; isto feito, podera ser cxecutada diretamente do 



DOS500 Ativo, por meio do comando LOAD ENTELA 
< ENTER >. 

Vamos, finalmente, ao BASIC. E importante rescrvar espa- 
co na memoria para a sub-rotina carregada por LOAD. Olhan- 
do novamente a listagem, vcmos que o programa tern sua origem 
na posicao FFF0, que corresponde em decimal a 65520 (ou -16), 
que devera ser o valor digitado em relacao ao tamanho de me- 
moria (Mem6ria Usada?). Em BASIC, podemos comprovar is- 
so digitando: 

PRINT SHFFF0 <ENTER>, ou ainda melhor 
PRINT 65536 + &HFFF0 <ENTER>. 

Uma vez em BASIC, nosso programa prccisa especificar o en- 
dereco inicial da sub-rotina USR, o que sc faz por meio do co- 
mando DEFUSR, que poderia ser: 

10 DEFUSR0 = &HFFF0 ou 10 DEFUSR = &HFFF0 

Para ver o rcsultado dessa sub-rotina, utilizamos urn peque- 
no programa, que podera ser assim: 

10DEFUSR0=&HFFF0 
20PRINT@0, "X" 
30 J = USR0 (0) 
40PRINT@932,"" 

Ao rodarmos o programa, instantaneamente a tela sera "en- 
chida" com "xis", ou seja la qual for o caractere contido na li- 
nha 20. Lembre-sc de que com a instrucao POKE as opcoes 
aumentam. 

Em BASIC, a solucao e "POKAR" a sub-rotina na mem6- 
ria. O proprio microcomputador pode fazer isso para nos. Vcja- 
mos a lista de mnemonicos gerados na listagem do programa 
assemblado: o primeiro valor e 21. Se digitarmos: 
PRINT&H21 <ENTER> veremos 33 

Se consultarmos o manual de operacoes do CP 500/300, ve- 
remos que para os valores mencionados na listagem do progra- 
ma assemblado (sempre encontrados) em HEXADECIMAL, 
teremos as equivalencias: 

21 = 33 11 = 17 01 = 1 ED = 237 

00 = 01 = 1 FF = 255 B0 = 176 

3C = 60 3C = 60 03 = 3 C9 = 201 

que usaremos em BASIC, numa linha dc instrucao DATA. 
Uma das formas de sc cscrcver o programa e esta: 

10 DEFUSR0=&HFFF0 

20 DATA 33, 0, 60, 17, 1, 60, 1, 255, 3, 237, 176, 201 

30 FORI = 1T012: READD: POKE&HFFF0 + I, D: NEXT 

40 INPUT "ENCHER COM CHR$";X 

50 PRINT@0, CHRJ (X) 

60 J = USR0(0) 

70 PRINT@932,"" 

A linha 20 especifica os 1 2 bytes da sub-rotina USR, que se- 
rao colocados na memoria alraves da instrucao POKE contida 
na linha 30, dentro do loop nela existentc; a linha 40 recebe o 
mimero do caractere na posicao do video; a linha 60 faz a cha- 
mada da rotina USR e a linha 70 ira colocar o cursor na posicao 
correspondentc ao valor "@" especificado. 

Rapido, nao? Agora ja e possivel a utilizacao de retinas cm 
linguagcm de maquina em nossos programas BASIC. Este pro- 
cedimento pode ser padronizado para todas as sub-rotinas que 
desejemos "POKAR" na memoria, em linguagem dc maquina, 
a fim de agilizar sobremaneira o BASIC (disco). 

Dc acordo com a imaginacao do programador, as sub-rotinas 
poderao incluir sons, desenhos com caracteres especiais, desvios 
etc., ate urn total de 10 por programa BASIC (disco), que serao 
definidas com DEFUSR0 ate DEFISR9. 

No proximo mimero, daremos conlinuidade a eslus informa- 
cocs. Na verdadc, sera uma dica da dica. Aguarde! 

/'. Fulvio G. Del Picchia 
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REPORTAGEM 




COLEGIO SANTO AMERICO 







AVAN^O EDUCAOONAl 
ATRAVES DA INFORMATICA 



O Sistcma DIDATA do Santo Ameri- 
CO forma uma rede com um CP 500 
(computador central), dezesseis CP 
300 (terminals de aluno) e uma impres- 
sora P 720. 




A relacao educacao/informatica e levada muito a 
serio no Colegio Santo Americo, em Sao Paulo. Pa- 
ra desenvolver a utilizacao dessa nova ferramenta edu- 
cational, o reitor do colegio, dom Gabriel Iroffy, 
criou o Departamento de Informatica para supervi- 
sionar toda as atividades computadorizadas da esco- 
la. Sob a direcao do professor Rudolf Riederer, estas 
atividades sao realizadas com o Sistema DIDATA, 
da CP — Computadores Pessoais, para as aulas de 
BASIC, programacao, provas das materias regulares 
e recreacao, alem da area administrativa, que se uti- 
liza do Sistema 700, da Prologica. 

Apesar das aulas de BASIC ainda serem opcionais, 
tres turmas de 32 alunos cada se revezam, na sala es- 
pecial de informatica, para aprender esta nova lin- 
guagem e desenvolver programas nas horas ociosas. 
Mas, a partirdoanoque vcm o BASIC se tornara obri- 
gatorio no curriculo do Colegio Santo Americo, nao 
so para os estudantes da 5? serie ate o 3? colegial mas 
tambem para os alunos do primario. 

Para tanto, o professor Rudolf Riederer vem de- 
senvolvendo programas adequados e especificos pa- 
ra cada ano escolar e area educational, alem dos 
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trabalhos por disciplina e bateria de testes. Atualmen- 
te, os alunos ja realizam estas baterias de testes por 
disciplina, agilizando tanto as atividades dos profes- 
sores como dos proprios estudantes. pois o progra- 
ma desenvolvido pelo professor Rudolf permite 
opcoes de testes, dentro da mesma disciplina, para 
todos os envolvidos. Estas opcoes sao aleatorias, sen- 
do que a escolha e realizada pelo proprio computa- 
dor — eliminando o fantasma da "cola". 

Segundo o professor Rudolf, a implantacao da in- 
formatica no Colegio Santo Americp vem alcancan- 
do o succsso esperado, pois os estudantes respondem 
a este novo estimulo de forma entusiastica. Tanto que, 
para freqiientar a sala de informatica na hora do re- 
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creio, precisam de "senhas", pois o niimero de com- 
putadores nao comporta todos os interessados. 

Mas a informatica no Colegio Santo Americo nao 
se limita a programacoes curriculares. O reitor dom 
Gabriel, apaixonado pelos computadorcs, tern ideias 
mais avancadas para sua utilizacao. "O computador, 
por enquanto, c somente uma ferramenta. Mas que- 
remos mais que isso. Vamos tornar a informatica urn 
meio educacional; para tanto, estudamos e desenvol- 
vemos softwares mais especificos" — afirma dom 
Gabriel. 

"Principalmente — continua — porque o re- 
torno dos alunos c a retencao de informacoes sao mui- 
to maiores com a computacao como meio de 
aprcndizado". 

A partir deste principio, o Colegio Santo Ameri- 
co tambem fara parte do Videotexto e do Cirandao, 
para utilizacao do banco de dados, alem da forma- 
cao de um clube de usuarios do Santo Americo corn 
os pais que possuem computadores pessoais, para co- 
municacoes, relatorios e bolctins escolares. 

Alem destas funcoes, dom Gabriel esta muito in- 
teressado nas aplicacoes musicais do computador. 
Com um CP 500, ele tern realizado, atraves de soft- 
ware especifico, ensaios com o coral do colegio, per- 
mitindo as mais complexas variacoes de tons em 
tempos recordcs. 

Por enquanto, o Departamento de Informatica tern 
apenas um Sistema DIDATA. No entanto, o reitor 
e o professor Rudolf planejam uma ampliacao des- 
tas salas, ja que as aulas de BASIC farao parte do 
curriculo escolar. Para as salas de Educagao Artisti- 
ca e primario, eles pretendem utilizar o CP 400 CO- 
LOR, devido a necessidade de cores e desenhos 
graficos. 



O Sistema DIDATA, utilizado no Colegio Santo 
Americo, e uma cficiente e podcrosa ferramenta pa- 
ra a area educacional — abrindo novas possibilida- 
des para ensino e aprendizagem. 

Conectado a um computador central, um CP 500 
com dois drives, e ate a 16 computadores auxiliares 
(CP 500 ou CP 300), tambem chamados de "termi- 
nal de aluno", este sistema salva, carrega ou impri- 
me arquivos, programas e dados do aluno — 
permitindo que todos os terminais acessem a impres- 
sora e os drives do computador central. 

A partir dessa rede, o Colegio Santo Americo de- 
senvolveu varios softwares especificos, adequados as 
exigencias das necessidades dos alunos. Alem dos soft- 
wares do colegio, os proprios alunos tambem tern 
oportunidade de desenvolver seus programas, como 
e o caso de Fabio Casagrande, do 2? ano colegial, 
que desenvolveu o programa "Atravessando o Rio". 




COMPOSIQAO 



O Sistema DIDATA possui tres componentes prin- 
cipals: o proprio DIDATA, um computador central 
(CP 500) e dezesseis terminais de aluno (CP 300 ou 
CP 500). Mas, assim como fez o Colegio Santo Ame- 
rico, e possivel expandir esta configuracao, acrescen- 
tando, por exemplo, uma impressora ligada ao 
computador central. 

A utilizacao do DIDATA e extremamente simples, 
uma vez que todo o sistema e controlado por soft- 
ware, restando apenas uma chave que pode selecio- 
nar o Modo de Controle Automatico ou Programado. 

Para a utilizacao da impressora, o DIDATA se uti- 
Iiza do Sistema Spool: todas as requisicoes para im- 
pressao vindas dos terminais de aluno sao enviadas 
ao computador central, que verifica se a impressora 
esta disponivel. Se estiver, a impressao e efetuada nor- 
malmente. Caso contrario, o central armazena os da- 
dos a screm impressos em um arquivo de Spool e os 
envia a impressora somente quando esta estiver li- 
berada. 
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MODO GRAFICO PONTO A PONTO COM QUALQUER MICROCOMPUTADOR 



As possibilidadcs da computacao sao imensas, dcsde que 
voce saiba escolhcr os cquipamcnios adequados as suas ne- 
cessidades e cxplorar lodas as capacidades de hardware e 
software. No caso da impressora P 500, por cxemplo, pou- 
cos sabem de sua capacidade de operacao ponto a ponto 
no modo grafico, com qualquer microcompuiador, mes- 
mo que cle nao seja grafico. 

Esta possibilidade da P 500 podc ser efetivada atraves 
de comandos enviados pclo micro, configurando assim a 
impressora no modo grafico ponto a ponto, e, a partir dai, 
controlar uma ou todas as 6 agulhas de impressao para 
se obter graficos em alta rcsolucao. 

Os comandos nccessarios para se conseguir tal perfor- 
mance sao os seguinies: 



COMANDO 


CODICO 
DECIMAL 


ACAO 


<BSC> <To> 
<L! > ou <CR> 

<ESC> <CR> 


27, 37. 48 
10 ou 13 

27. 13 


Aliva o modo grafico. 
Ambos ou isoladamente provocam o 
•.alio de liiiha no modo grafico. 
Sai do modo grafico ponio a ponio. 



E importanle saber que, quando a impressora P 500 es- 
tiver configurada no modo grafico ponto a ponto, nao se- 
ra possivel imprimir caractercs comuns. 

CODIGOS DECIMAIS 

O controlc das agulhas e feito atraves de codigos deci- 
mals enviados a impressora, sendo que cada agulha tern 
urn valor proprio. Por isso, o codigo necessario para acio- 
nar urn certo conjunto dc agulhas e obtido pela soma dos 
valores das agulhas que se quer imprimir e, a esse total, 
adiciona-se 32. 



Explicando: 










(Valor) 




(Valor) 


I J agulha 


1 


4? agulha 


8 


2? agulha 


2 


5: 1 agulha 


16 


3. J agulha 


4 


6. a agulha 


32 



A seguir, aprcscntamos uma tabela com os codigos De- 
cimals e Hexadecimais de todas as combinacoes possiveis 
com as 6 agulhas. 

1 0)21)2011 •111)2111 o 341) 2211 • 351) 2)11 o 3M> 2411 • 37D 25H o 3ID 2611 • )9D 2711 



WD 2BH •411)2911 a ::n.' \H 



i 4«D SOU • 49D3III o Will 1211 



561) )>ll • SID 3911 o 311) 3AII 



I 641)4011 • Ml) 4111 o Ml) 4211 



■21)4-11 • 7)1)4911 o 741) 4AM 



SOD 3011 • KID 5111 o 821) SIH 



m> S»ll • Ml) JIM o 90DSAII 



4)1)21111 o 441)2111 .451)21)11 OWD2EII •471)2111 



5ID 3)11 a 52D 3411 



HO 31IH ° 601) 3t'M 



671) 4)11 o f.-I) 44H 



■•1)41111 o7(.I)4CH 



Ml) 3311 o Ml) 3411 



•)II)5IIM O920 5CII 



5)D 3511 o 54D J6H 



•11)51)11 OUU3EH 



69U 4511 o 70D 46H 



77D 4D11 o 7ID 4FII 



»51) 5511 o 86D 56H 



•1)1)51)11 o 941) SEH 



Para enviar cstcs eddigos para a impressora, quando 
se estiver trabalhando em BASIC, deve-se utilizar o 
comando: 

LPR1NT CHR$(x) 
onde x e o codigo que sc descja enviar. 



Se voce quiser imprimir estc conjunto: 



e necessano soma 



n : 

r #_ 1 1 + 4 .+ 16 + 32 

o I I I 



portanto, o codigo sera 53. 
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= 53, 



Alem de todas cstas possibilidadcs, vale ressaltar que 
a impressora P 500 pode ser configurada para quatro ti- 
pos de caractercs, rcsultando em quantidades difercntes 
de pontos por linha: 

Caractere Comprimido/Expandido ... 420 pontos/linha 

Caractere Expandido 240 pontos/linha 

Caractere Normal 480 pontos/linha 

Caractere Comprimido 840 pontos/linha 
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UM PASSO A FRENTE 





E chato! Sem diivida uma das maiores in- 
coerencias com que qualquer usuario de micro 
se depara: de posse de uma poderosa ferramen- 
ta da avangada sociedade de informatica, te- 
mos que nos ver humilhados por horas 
digitando aqueles interminaveis programas dos 
livros e revistas especializados, sendo que o 
computador sempre dispoe de uma forma mui- 
to mais pratica para carregar os programas; no 
minimo, uma entrada para gravador cassete. 

Entao, estava mais do que na hora das edi- 
toras comecarem a se atualizar e lancarem ver- 
soes gravadas de suas obras. E claro que o livro 
ainda e indispensavel (e nao me arrisco a dizer 
que sempre sera!) para nos dar aquelas infor- 
magoes suplementares que uma listagem, por 
mais comentada e user-friendly, nao consegue 
absorver. 

A Editora Campus da o primeiro passo nesse 
sentido, langando a serie "Software" que, alem 
dos ja conhecidos livros do tipo colecao de pro- 
gramas, dispoe de copias dos programas em fi- 
ta, vendidas separadamente. 

Os dois livros que chegam as nossas maos 
sao o Rotinas Matemdticas para Micros, 232 
paginas, de Caetano R. A. Loiola, e o Desa- 
fio: Os Mais Excitantes Jogos em BASIC, 254 
paginas, de. Antonio Julio Botelho. Os dois sao 
bem escritos e de facil assimilacao e trazem pro- 
gramas para a linha Sinclair que podem, com 
alguma habilidade, ser convertidos para outros 
micros. 

Sem diivida, essa iniciativa inaugura uma no- 
va etapa na literatura nacional de informatica 
e esperamos que a tendencia persista. 



Evoluindo no BASIC TK, de 

Bernardo Stein, 136 paginas, 
Editora Nelph. 



EH0L0IHDO 
^ BASIC TK 



llu E-fl 



SBrS» 



Na tentativa de abordar 
com uma objetiva diferente 
o aparentemente exaurido fi- 
Iao de programas para a li- 
nha Sinclair (pelo autor 
chamada linha TK), Stein 
consegue reprisar alguns 
classicos para esta linha com 
maestria, dando consistcncia 
a sua obra. Deve ser lido por 
aqueles que pretendem o 
maximo de informacoes so- 
bre o seu microcomputador, 
sendo dispensavel aos pro- 
gramadores experientes. 



ESCAO (n-m-p) 
Um Computador NAO-Von 
Neumann, de Wagner Wa- 
neck Martins, 268 paginas, 
Editora Cartgraf. 




Este livro expoe as bases 
do projeto de uma maquina 
nao-Von Neumann, cuja 
principal caracteristica e a 
capacidade dc processamen- 
to simultaneo. Com essa 
obra, o professor Waneck 
divulga as bases de sua pes- 
quisa em busca dos compu- 



tadores de quinta geracao. 
Uma Ieitura indispensavel 
para quern quer se manter a 
par da evolucao dos micro- 
computadores. 



O Seu Micro e o Mundo Ex- 
terno, de Bernhard Wolf- 
gang Schon, 128 paginas, 
Editora Nelph. 




Uma serie de perifericos 
muito bem selecionados, in- 
cluindo aplicacoes impres- 
cindiveis de bancada, como 
o gravador de EPROMs ou 
o analisador logico de 24 ca- 
nais, Excelente para o "ki- 
teiro". Apesar/ de ser 
baseado na linha Sinclair, o 
detalhamento dos projetos 
permite facil adaptacao as 
demais familias de micros. 



Curso Intensivo de Micro- 
computadores, de Louis E. 
Frenzel Jr., 336 paginas, 
Editora Tecnica Eletronica 
— Editele. 




Numa mesma^obra, tres 
excelentes cursos sobre com- 
putadores: visao geral, hard- 
ware e software. 
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O professor ideal 



informatica. 



OCP200Seoparceiro 
ideal dos iniciantes. 

OoiO OS rniClOriTwS desenvolve as primeiras 

ha mi inHrv Ho |i( ;° esem computagao. 

IVJ IUI IUU UO Qualquer crianga pode utiliza 

lo para resolver tarefas 
escolares ou simplesmente 



curtir os mais divertidos jogos 
de video-game. 



c 




TECNOUDOA ■■■ 
)) PROU3QCA 



COMPUTADORES PESSOAlS 

RUAPTOLOMEU. 650-VILA SOCORROSAO PAULOSP 
CEP 01762 ■ FONE (PBX) 521-1633 



MICROCOMPUTADOR=COLOR 





QUEM TEM UMTEM FUTURO 



VOCE TEM QUE ESTAR PREPARAIX) 
PARA SE DESENVOIVER COM OS 
NOVOS TEMPOS QUE ESTAO AI. E 
CP 400 COLOR E A CHAM DESSA 
EVOLUCAO PESSOAI. E PROF1SSIONAI.. 







1 • • • • w c 

• * V* ■» V* ■* 

It i. 




PORQUE? 
PORQUE OCP 400 | 
COLOR ELM 
COMPLTADOR 
PESSOAL 
DE TEMPO 
INTEGRAL: UTIL 
PARAAFAMfLIATODA.ODIA 
INTEIRO. 

NA HORA DE SF. DIVERTIR. POR 
EXEMPI.O.EMUITOMAIS 
EMOCIONANTE PORQUE, ALEM DE 
OFERECERJOGOS INEDITOS, 
MUNICO COM DOIS JOYSTICKS 
ANALOGICOSDEALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVLMENTARASIMAGENS 
EM TODAS AS DIRECOES, MESMf ). 

NAHORADETRABALHARE 
EST! IDAR , ( ) CP -i(X) COLOR MOSTRA 
SEULADOSERIOjMEMORIA 
EXPANSIVE!.. PORTA PARA COMU- 
NICAQAO DE DAIKIS. SA1DA PARA 
IMPRESSORA E I MA OT1MA NTTIDEZ 
COM LMAGENS COI.ORIDAS. 

COMOSETUDOISSONAO 
BASTASSE, A PROI.OGICA AINDA 
OFERECEAGARANTiADE 
(,)( ALIDADE 1)1- (,)IKM I- I.IDER N'A 
TECNOLOGLVDECOMPUTA- 
DORES. E PRECO MAIS ACESSlATl 
NACATEGOR1A. 

NUMAFRASfcSEVOCBNAO 
QIIISER CIIEGAR ATRASADO AO 
FIjTURO, COMPRE Sl-U CP 400 



COLOR IMEDIATAMENTE. 

EMOCAO E INTEUGENCIA NUM 
EQLIP.AMF.MOS6. 

• IMAGENS COM ATE 9 CORES. 

• OHM A RESOLUCAO: 49.152 PONTOS. 

• DUAS VERSOES A SUA ESCOLIIA: 
I6K OU 64K DE MEMORIA RAM. 

• MEMDMA RAM llXPANSIVEL: VOCE 

comeg.a com 10k e pode chegar 
ate64kcomdisquetes. 

• ltiuza cartuciios para api.ica 

t1v0s ejogos: 
banc0deda1k)s, 
editor detex- 
tos, planii.has 
eletronicas, 
graficos. 
e.ytreoutros. 
' memOria 
externa em 

casseteoudisoiiete 

disk-system, cp 450. 

• porta rs 232 c incorporada. 

permitinlk) comunicacao 
de dados e ligacao direta a 
impressora 

SERIAL 
•PERMITECOM- 
PETigAO DE 2 
JOG ADORES AO 
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1. Minicalc — Planilha Eletrdnica 

Aplicativo para o CP 400 COLOR 
Este programa, cedido pela Peek & Poke, e urn 
modelo simplificado de planilhas mundialmen- 
te conhecidas como Visicalc e outras. Nosso ob- 
jetivo nao 6 substituir as planilhas mais 
sofisticadas, programadas em linguagem de 
maquina, mas sim fornecer uma opcao para 
aplicacoes que nao envolvem grandes quan- 
tidades de dados ou operacoes muito com- 
plexas 



2, 3, 4 e 5 



2. Agenda COLOR 

Aplicativo para o CP 400 COLOR 

Este programa transforma seu computador pes- 
soal em uma eficientc c agil agenda, com ate 
99 nomes, endereco, telefone e data de aniver- 
sario, com possibilidadcs de inclusao e alte- 
racao 



6, 7 e 8 



PLANILHA ELETRONICA 

MINICALC 

CP 400 COLOR 64 e 16 



MINICALC e um programa BASIC 
que excrce a funcao dc planilha eletro- 
nica. Em Iinhas gerais, MINICALC e 
um modelo simplificado de planilhas 
mundialmcnlc conhecidas como 
VISIC ALC e outras. O objetivo do pro- 
grama naturalmente nao e substituir as 
planilhas mais sofisticadas programa- 
das em linguagem de maquina, mas sim 
forneccr uma opcao barata para aplica- 
coes que nao envolvam grandes quanti- 
dades de dados ou operacoes muito 
complexas. 

Uma planilha eletronica pode ser 
comparada a uma folha de papel em 
branco dividida em Iinhas e colunas. 
MINICALC dispoe de 9 colunas e 43 Ii- 
nhas, totalizando 387 posicoes, chama- 
das de "celulas". Determina-se a celula 
pela coluna e linha que cla pertence. As- 
sim, a celula 4, II e a posigao de cruza- 
mento da coluna 4 com a linha 11. 

A grande vantagem das planilhas ele- 
t ronicas c a capacidade de tcr valores va- 
riaveis em algumas celulas, ou seja, 
algumas celulas sao o rcsultado de for- 
mulas que fazem referencia a outras ce- 
lulas. Assim.se mudamosos valores das 
celulas originais, lodas as celulas cujas 
formulas fazem referencia as originais 
serao automaticamentc recalculadas. 
No momento alual, quando tantos va- 
lores sao calculados em funcao dc indi- 
ces como ORTN, UPC e outros, 
MINICALC pode ser uma grande aju- 
da para muitos usuarios de CP 400. 

COMANDOS 
O programa comeca com a planilha 
em branco, com Iinhas de 1 a 13 e colu- 
nas dc 1 a 3. Em cima da tela voce vera 
um sinal de maior ">" c o cursor no 
come?o da linha. Esta e a linha de co- 
mandos, que sao os seguintes: 

G — mncmonico de GOTO. Serve 
para ir a celula especificada no coman- 
do. Por exemplo, tecle G9.ll para pas- 
sar a celula 9,1 1 (coluna 9, linha 11). Use 
< ENTER > para voltar ao modo de 
comando. 

V — ver a formula presente em algu- 
ma celula. Teclando-se V4,7, teremos o 
display da formula que voce atribuiu a 
celula 4,7 (coluna 4, linha 7). Use qual- 



quer tecla para voltar ao modo dc 
comando. 

S — faz o "SAVE" dos dados em cas- 
sete. Apos teclar o comando voce deve 
preparar a gravacao c digitar o nomc do 
arquivo que sera gravado. 

L — leitura de um arquivo previa- 
mentc gravado em cassete. Voce deve di- 
gitar o nome do arquivo que o programa 
deve procurar. 

P — imprime os dados presentes na 
memoria. Voce pode escolher a linha 
inicial e a linha final a ser impressa. 

X — saida do programa. Volta ao 
BASIC. Deve sempre ser usado. Nao use 
< BREAK > para sair do programa. 

U — recalcula todas as posicoes que 
contenham formulas. Deve ser usado 
sempre que sc alterar algum dado que 
entre nas formulas de outras celulas. A 
tela se desorganizara por alguns segun- 
dos, enquanto os calculos estao sendo 
efetuados. 

F — entrada de formulas. 

ENTRADA DE DADOS 
Para a entrada de dados, basta teclar 
os dados na posicao. Comece com o co- 
mando G para levar o cursor ate a posi- 
cao descjada dentro da planilha. 

Os dados podem ser strings (t'itulos 
que contenham letras ou numeros) ou 
dados numericos. Voce pode entrar com 
ate 9 digitos por celula. Para facilitar a 
entrada de Iinhas de titulos, o cursor 
passa a proxima celula da mesma linha 
apos a entrada do nono di'gito ou carac- 
tere. Voce pode usar a seta para a csquer- 
da para corrigir eventuais crros dc 
digitacao. 

Para finali/.ar a entrada de um dado, 
voce pode usar: 
< ENTER > que o levari de volta ao 
modo de comando 
t (seta para cima) para 

passar a linha anterior 
1 (seta para baixo) para 

passar a proxima linha 
-* (seta a direita) para pas- 

sar a proxima coluna 
<SHIFT> —(seta a esquerda) para 
passar a coluna anterior 
Voce pode passar com o cursor pela 
planilha sem apagar o conteiido das ce- 
lulas, usando as quatro setas. Quando 



nao houver Iinhas na direcao da seta te- 
clada, voce voltara ao modo de coman- 
do. Por exemplo, se voce estiver na 
coluna 1 e usar a seta a esquerda, voce 
voltara ao modo de comando, pois nao 
ha linha 0. 

Estando numa celula e teclando-se 
qualquer tecla que nao seja < ENTER > 
ou as setas, o conteiido da celula ser<t 
apagado e voce devera entrar com no- 
vo dado. 

FORMULAS 

Para comccar, vejamos os conceitos 
de opcrandos c operadores nas formu- 
las. Na seguinte operacao: 

1+4-2 
l,4e2saoosoperandose" + "e" -" 
sao os operadores. Nas formulas usa- 
das em MINICALC, os operandos po- 
dem ser o conteiido dc outra celula ou 
uma constante (valor numerico). As ce- 
lulas sao indicadas pelos colchctes " [" , 
conscguido teclando-se < SHI FT > se- 
ta para baixo, e "]", conseguido teclan- 
do-se <SHIFT> seta a direita. Entre 
os colchetes fica a designacao da celu- 
la: coluna e linha separadas por virgula. 

As constantes devem estar dclimita- 
das por " < " (sinal de menor) e " > " 
(sinal de maior). Assim, se voce usar o 
comando F3,3 para dctcrminar a for- 
mula da celula 3,3 e teclar: 

[1,2] - <3.5> 
o conteiido da celula 3,3 sera igual ao 
da celula 1,2 menos o valor 3.5. Lem- 
bre-se que o indicador de decimal e o 
ponto (nao a virgula). 

Os operadores sao sinais aritmeticos 
normais: + , — , * e /. Ao contrario das 
formulas aritmeticas normais, onde hd 
uma precedencia ou hierarquia de ope- 
radores, as f6rmulas de MINICALC 
sao calculadas na ordem em que se en- 
conlram, da esquerda para a direita. 
Portanto, deve-se usar parenteses para 
indicar as operacoes que devem ser efe- 
tuadas antes: 

<12> + <3>*<2> =30 !! 

<12>+(<3>*<2>)=18 
Voce pode usar varios niveis dc paren- 
teses. 

Outro recurso freqiientemente utili- 
zado em planilhas e a somatoria de li- 
nha ou coluna. Voce pode somar numa 
formula determinadas posicoes da linha 
ou coluna onde ela sc encontra. Por 
exemplo, se na celula 4, 1 1 (coluna 4, li- 
nha 1 1), voce usar a formula: 

C2.7 
obtera a soma 

[4,2] + [4,3] + [4,4] + [4,5] + 
+ [4,6]+ [4,7]. Usando: 

LI, 3 
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obteraasoma[l,ll] + [2,11] + [3,11]. 

Outros recursos sao I e A. I indica nii- 
mero inteiro, ou seja, as casas decimals 
serao desprezadas, e A indica valor ab- 
solute Devem ser usados antes de pa- 
renteses. Exemplos: 

I(<10>/<3>)=3 

A(<2.5>-<13>) = 10.5 

IA«4.6>-<8>) = 3 

O PROGRAMA 
Explicamos aqui de maneira sucinta 

a funcao de varias linhas de MINICALC: 
10-90 Inicializacao, dimensionamen- 
to e preparacao da tela. 

100-250 Espera e analisa um coman- 
do. Direcionamento do pro- 
grama. 

260-320 Interpreta comandos relati- 
vos a celulas (F, G e V). 

330-350 Executa comando V. 

360-370 Localiza posigao da celula na 
tela. 

380-470 Entrada de dados. 

480-520 Entrada de formulas (coman- 
do F). 

540-560 Comando U.Recalculatodas 
as formulas. 

570-620 Comando S. Grava os dados 
em fita. 

630-670 Comando L. Leitura de da- 
dos do cassete. 

680-730 Parte da rotina de avaliacao 
das formulas. 

740-780 Limpa a tela. 

790-810 Escreve niimeros de linhas. 

820-860 Comando P. Imprime os da- 
dos. 

870-930 Mudanca de tela. Display de 



nova area da planilha. 
940- Rotina de retardo. 

950-1460 Avaliador de formulas. 

OBSERVACAO 

Em certos tipos de aplicacao, a lin- 
guagem BASIC tern a limitacao da ve- 
locidade de execucao, que chega as 
vezes a comprometer a eficiencia do 
programa. MINICALC usa alguns re- 
cursos para superar este problema. O 
primeiro e a limitacao de colunas e li- 
nhas. O segundo e o uso dos chamados 
POKEs de velocidade. Acessando-se 
certas posicoes de memoria, podemos 
modificar a velocidade de processamen- 
to do computador para determinadas 
funcoes. Contudo, estes recursos nao 
estao documentados pelo fabricante do 
CP 400 e, portanto, nao sao 100% ga-. 
rantidos. 

Assim, se voce nao se incomodar 
em esperar mais alguns segundos para 
obter os resultados, ou se voce ex- 
perimentar algum tipo de problema na 
execucao do programa (o que dificil- 
mente acontecera), retire as instrugoes 
POKE 65495,0 das linhas 10, 620, 660 
e 860 e a instrucao POKE 65497,0 da 
linha 540. 

Note que as operacoes de impressao 
e de leitura ou gravacao em cassete fi- 
cam prejudicadas com ambos os POKEs 
e, portanto, estes sao desligados antes 
de estes comandos serem acionados, as- 
sim como na saida do programa (opcao 
X). Por isso e importante nao sair do 
programa com o uso de < BREAK > , 
pois o computador continuaria funcio- 



nando irregularmente, impossibilitan- 
do todas as operacoes com cassete ou 
impressora. Por este mesmo motivo, 
desaconselhamos que se rode o progra- 
ma experimentalmente antes que o mes- 
mo esteja totalmente digitado e gravado. 

O POKE de supervelocidade (posi- 
cao 65497) altera ate a saida de video, 
embaralhando a imagem da televisao e 
por isso so foi usado no comando U, 
que recalcula todas as formulas do pro- 
grama, e que seria sensivelmente mais 
lento caso seu processamento fosse efe- 
tuado na velocidade normal do com- 
putador. 

Para desligar a velocidade extra 
(POKE 65495,0), usa-se a instrucao 
POKE 65494,0 e para desligar a super- 
velocidade (POKE 65497,0) usa-se 
POKE 65496,0). 

CONCLUSAO 

Esperamos que voce faca bom uso 
de MINICALC, que apesar de simples 
e um programa extremamente litil pa- 
ra certas aplicacoes. No caso de se 
mostrar muito limitado devido a com- 
plexidade de operacoes ou quantidade 
de dados, voce ao menos tera conse- 
guido conhecer o mecanismo das pla- 
nilhas eletronicas, que sao hoje a 
aplicacao mais popular dos microcom- 
putadores, ao lado do processamento 
de textos e dos programas gerais de ca- 
dastre 

Em caso de diivida, consulte a Peek 
& Poke e conheca melhor a capacida- 
de de seu CP 400 e sua linha de pro- 
gramas profissionais. 
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70 '* RTENCPOs USURRIQS DE 16K * 

80 '*USE CLEAR 3500 Ntt LINHH 10* 

9 ' x x- -x x * x- x x- x- x- -x- * x- x x- x- x- x- x- -x- x x- -x- x -x x- -x- x- 

106 POKE 65'495r0sPCLERRlsCLEPR'/'0 
00sDIML*(9r"43) »V<M0>»I*<9,M3) 
110 CLS 
120 EORT=1088TO1 1 19s POKET r 32 : NEX 



T:POKEli01v50s 
91xM9sF'RINT(a96 
130 F0RT=1T012 
T) x 2) 3 NEXT 
140 PR INT" 13"; 
150 E0RT=1121T 
(T):IFP>63THEN 
160 NEXTsEORT= 
aPEEK(T) :IFP>6 
1.70 NEXT 
180 XS=0::YS^0 ' 
190 PRINT@0»"> 
C*=""sPP.INT<!>P, 
200 Fl$ = INKEY*s 
rCHR$(128) ssGO 
210 PfUNTGF>CH 
13)THEN£50 
220 IFR$^CHR*( 
ENP=P-lsC$=--i EF 
230 H*=:C*+R* 
2M0 PRINTtfPrfl* 
250 L$=LEFT$(C 



POKE! 11 1, 51s POKE 10 

II II y 

' t 

sPfUNTRI6HT*(STR1i( 



O1506STEP32:P=PEEK 

POKET, P-6M 
1120TO1505STEP32sP 

3THENP0KET,P-6i4 



":PR1NT:P=--2:R$^"": 

II II M 

IFfl** ,n, THENPRINT«P 

TO200 

R*<32)tsIFR*=CH«*< 

8) RND LEN<C*)>0TH 
T*(C$rP-2) sGOTO200 

•; sP=P+l SROTO200 

$rl) 
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260 IFL*="G"THENF=0sGOTO350 

270 TFLS«"F"THENF=1 80QTO350 

280 IFL$*"V"THENF=2sGQTO350 

290 IFL$="U"THEN620 

300 IFLS="S"THEN6S0 

310 IFL$="L"THEN710 

320 IFLS="X"THEN POKE 65494, 0ECL 

SsEND 

330 IFL*="P"GOSUB900 

340 GOTO190 

350 L*=""sF0RT=2T0LEN<C*):M$= ! MID 

*<CS , T , 1 ) n IFM*=" r "THEN380 

360 LS=L*+M* 

370 NEXT: GOTO 190 

380 L*=RIGHT*<L$rl ) :X=Vf)L(L*)-XS 

390 L*=RIGHT* ( C* , LEN ( C$ > ~T ) 

400 Y=yflL(L$)-YS 

410 IF FO2GOTQ450 

420 IF LEN < I$iX+XS, Y+YS) ) -w GOTO 

190 ELSE 11=1 
'430 PRINTG32 , STRINGS ( 32 , 32 ) s :: PR I 
NTG32 , M I DS ( IS ( X+XS , Y+YS ) , 1+32* ( I 

1-1),32>! 

440 IHM=INKEY*5lFIl$«"" GOTO 440 

ELSE IF LEN(IS(X+XS,Y+YS) )>32*I 

1 THEN Il-Il + lr.GOTO430 ELSE GOTO 

190 
450 IF X<1 OR X>3 OR Y<1 OR Y>13 
THEN SX=XSsSY=YS;:GOTO950 ELSE P 
RINTS32 , STRINGS ( 32 , 32 ) f 
460 P=Y*32+X*10+57s IFF=1THENG0SU 
8570s GOTO 190 ELSE L*=LEFT$<L$<X+ 
XSyY+YS)rl)sT=0!lF LEN(LS)=0 THE 
N L*»" " 

470 RS=INKEY$sIFR$^""RNDT=:0THENP 
R I NTGP , CHRS ( 1 28 ) 5 : GOSUB 1 820 a T= 1 s 
BOTQ470ELSEIFR*=""RNDT=1THENPRIN 
T«P rL$;: T=0 g GOSUB1 020 : GGTO470 
480 PRINTGP , LS ! :: IFR$=CHR*< 1 3 ) THE 
N560ELSEIFfl$«CHR*(10)THENY=Y+lsG 
OTO450ELSE.TFO*--CHR$<9)THENX=X+ls 
QOTO450 

490 TFR*=GHR*(94)THENY=Y-l!G0T04 
50EL.SE IFR*=CHR* ( 21 ) ORfl*=CHR* ( 8 ) T 
HENX=X-lsGOTO450 

500 PRINTQPr" "?bL.$(X+XS 
, Y+YS ) = " " :: L$=" " ! GOTO520 
510 R*=TNKEY*sIFfl$= ,I "THENPRINTQP 
,CHR*(128);:GOTO510 
520 PRINT'i>P," " s s IFR*=CHR*< 13)T 
HFN560 ELSE IF R*=CHR*<10) THEN 
Y=Y+ls GOTO 450 ELSE IF R*=CHR*< 
?) THEN X=X+1 sGOTO 450 
530 IF R$=CHR*<94) THEN Y--Y-l:GO 
TO 450 ELSE IF R$=CHRS<21> THEN 
X=X~lsGOTO 450 

540 IFR**CHR*<8) RNDLEN(LS(X+XS, 
Y+YS ))>0THENP=p-lsL$( X+XS, Y+YS )= 
LEFTS ( L* ( X+XS , Y+YS ) , LEN ( LS ( X+XS , 



Y+YS) )-.l. ) a GO TO 510 

550 LS ( X+XS , Y+YS ) =L $ ( X+XS, Y+YS ) + 

fl * s P R I N TfiPr fl * " r i P -P + 1 : I F L E N ( L $ ( X 

+XS»Y+YS))->=9 THEN X*X+lsGOTO 45 

ELSE GOTO 510 

560 GOTO190 

570 PRINTGP » CHR* ( 186 ) ; " " s 

580 PRINTS, IS(X+XS, Y + YS) 

590 PRINTQ0 ,""; s LINEINPUTIS s IFI $ 

= " N" THENPRINTQP , L* < X+XS , Y+YS ) ; :G 

OTO190ELSEO=0 : I * ( X+XS , Y+YS ) *I $ ! X 

R=X+XSsYR=Y+YS 

600 GOSUB103B 

610 GOTO 190 

620 U= 1 :: P0KE65497 r ; FORY=l T043 s F 

ORX=--1TO9:IFIS(X,Y) = ""THEN640 

630 I **.I * ( X', Y ) s XS=" " : Y$=" " s XR=X s 

Yfl=Ys GOSUB 1030 

640 NEXTX , Y :: P0KE65496 , g U=0 S GOSU 

B 820sFORO=98TO480STEP32:PRINT@0 

, STRINGS ( 30 ,32) 5 g NEXT S PRINT(S482 , 

STRINGS ( 29 , 32 ) ? :: POKE 1 535 , 96 : FORX 

=lTO3:FORY=lTO13sPRINT<3Y*32+X*10 

+57 •/ LS ( X+XS , Y+YS ) ! g NEXTY , X g GOTOl 

90 

650 PRINTS©. STRINGS (32,32); sPRIN 

TGOr""? 

660 RR=-lsINPUT "NOME"jTR* 

670 POKE65494,0sOPEN "0",r*RR,TRS 

680 F0RT=lT09sF0RY=lT043aPRINTttfl 

R , LS ( T , Y ) s PR INTttRfl , I'S ( T , Y ) :: NEXTY 

,T 

690 CLOSE HRR 

700 POKE65495,0:GQTO 190 

710 PRINT€'0,STRINGS(32,32)?:PRIN 

T<§0»"" ; gflfl«-l 

720 INPUT "NOME";TRS 

730 POKE65494,0sOPEN "I",HRP,TflS 

740 FORT=lTO9:F0RY=lTO43sINPUT#fl 

R , LS (T , Y ) : I NPUTHRR , I S ( T , Y ) a NEXTY 

, T g CLOSE#flfl s P0KE65495 , 

750 GOSUB820BFORt=lTO3sFORY=lTOl 

3 :P=Y*32+T*10+57: PRINTOP, LS(T+XS 

rY+YS) ; sNEXTY,TsGOTO190 

76@ II $=•"" 

770 T=T+l:M*=MID$(I$rTrl):IFM*=" 

>"THEN790 

780 I1S=-I1S+MSsIFT>100THENGOTO11 

20ELSEGOTO770 

790 U ( ) -URL (US ) g 0=0+ 1 s GOTOl 230 

800 IFIS="N"THEN:l.90 

810 RETURN 

820 F0RY=lT013sF0R X=1T03:PRINT6 

YX-32+X* 1.0+57," "r s NEXTX, Y 

830 FOR fl=1131 TO 1515 STEP 32 

840 POKER , 96 s POKER+1 , 96 g POKF.fl+10 

, 96 b POKER+1 1 , 96 : POKER+20 , 96 

850 NEXTfl 

860 RETURN 
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870 FOR Y =1 TO 9 :P=.1.088+Y*32:T 

=YS/i0-J.+49sPOKEP,T:NEXTY 

880 FOR Y=10 TO 13:P=1088+Y*32:T 

=YS/1 0+49 r. POKEP , T : NEXTY 

890 RETURN 

900 PRINTG0, "PRIMEIRR LINHFTsIN 

PUT fl 

910 PRINTQ0, "ULTIMA LINHA": INPUT 

B 
920 POKE65494,0:FOR Y « A TO B:F 
OR X=1T09 
930 PRINTH-2,TAB((X-1)*9)L*(X,Y> 

940 NEXTX:PRINTtt-2,CHR*(13);:NEX 

TY:POKE 65495 ,0:RETURN 

950 IF X<1 AND XSO0 THEN X=X+XS 

:XS=XS-i:X=X-XSsGOTO 1000 

960 IF X>3 AND XS<6 THEN X=X+XS: 

XS=XS+lsX=X-XS:GOTO 1000 

970 IF Y<1 AND YSO0 THEN Y=Y"+YS 

=YS=YS-10sY=Y-YS:GOTO 1000 

980 IF Y>13 AND YS<30 THEN Y=Y+Y 

S:YS=YS+10:Y=Y-YS!;GOTO 1000 

990 GOTO 190 

1000 XB=X:YB=Y:IFX<10RX>30RY<10R 

Y>13THENGOTO950ELSEGOSUB 320 : GOS 

UB 870 

1010 POKE 1 101, 58+XSs POKE 1111,5 

l+XS:POKE J.091,H9+XS:FORX=:I.TO3sF 

ORY=l.TO13:PRINT<aY*32+Xxl0+57,L*( 

X+XS,Y+YS)?sNEXTY,X:X=XB=Y=YBsGO 

TO 460 

1020 FOR GG=0TO40:NEXTGG:RETURN 

1030 II*=I*:Gl=0:G2=0xFORT=lTOLE 

N(II«) 

1040 M*=MID*(II*,Txl) 

1050 IFM$="("THENG1=T:NEXT 
1060 IFM*=")"THENG2=T:GOTO1130 
1070 NEXT 

1080 IF G1O0 AND G2=0 THEN GOTO 
1120 

1090 GGSUB 1180 

1100 L* ( XA , YA ) =STR* ( V) 5 IFLEFT* ( L 
* ( XA , YA ) r 1 ) =••" " THENL * ( XA , YA > =R I G 
HT* ( L* < XA , YA ) » LEN ( L* ( XA , YA ) ) - 1 > : 
IF U=0 THEN PRINTeP-1," 
"j:PRINTePrL$<xn,YR) j 
1110 RETURN 

1120 I*<XR,YR)-=" l, :PRINT<332r ,, ERRO 

NR FUNCRO"; sPRINTGP," "; 

:fl*=INKEY*!lFR*= , " , GOTO1120ELSERE 

TURN 

1130 IF G1=0 THEN GOTO 1120 ELSE 

IFGl = lTHENI$=""sGOTO1140ELSETJ.* = 

MID$<II$,Gl-lrl):IFTl*= ,, I"THENI* 

="I"ELSE IF Tl*="fl"THENI*="fl"ELS 

EI*»"" 

1140 I*=I*+MID*( II*» 61+1,62-01-1 



):GOSUB1180 

1150 IFTl*«"fl ,l ORTl*="I"THEWGl=Gl 

-1 

1 1 60 LL=LEN (II*) -02 i I*=L EFT* (II* 

,G1-1)+"<"+STR*(U)t">"+RIGHT*(IT 

irLL) 

1170 GOTO J. 030 

1180 0=0 : V < > =0 s FORT« 1 TGLEM ( I * ) 

1190 M*=MID*(I*rT,l) 



1200 IFM*^"I!"THENX*=-"":Y$ = " 



iOT 



01490 

1210 IFM*="< ,, THENX*="":Y*= ,, "!GQT 

0760 

1220 IFM*="L"ORM*="C"THEN1370 

1230 NEXT 

1240 I=0:V=V<0):O=J sF0RT=1 TOLFN ( 

I*) 

1250 M*=MID*(I*rT, 1) 

1260 IFM*«"*"THENV«V*V<0) sGOTOlS 

40 

1270 IFM* = " + "THF.NV=V+U(0) :G0T015 

40 

1280 IFM*="/"THENIFV<O)=0THENGOJ 

O1120ELSEV=V/V<O>sGOTOi54R 

1290 IFM*="-"THENV=V-V<0) 5 GOTO 15 

40 

1300 !FM*="I"THFNI=I+1 

1310 IFM*="fl ,, THENT = I + 2 

1320 NEXT 

1330 IF I=1THENU=INTCV) 

1340 IF I=2THENV=RBS(V) 

1350 IFI»3THENV=INT(RBS<V) ) 

1360 GOTO1480 

1370 F0RT=2T0LEN(J*) 

1380 IFMID*(I*»T,1)=" . "THENT1$=M 

ID*(I*x2,T-2)sLL.-i_EN(I$)-TsT£*-« 

ID$<I*,T+lxLL)sGOTO1403 

1390 NEXTT 

1400 V=0 

1410 IFM*="C"THENGOTO1450 

1420 F0RT=VRL<T1*>T0VRI.<T2$) 

1430 V=V+VRL(L*(T,YR)> 

1440 NEXTT :GOTO1480 

1450 F0RT=VRL<TJ*)T0VRL<T2*> 

1460 V=V+VRL(L*(XRrT)> 

1470 NEXTT 

1480 RETURN 

1490 T=T+1:M*=MID*(I*,T,1):IFH*- 

","THEN151.0 

1500 X*=X*+M*=IFT>100THENGOTO112 

0ELGEGOTO1490 

1510 T=T+1 :M*=MID* ( 1$ „ T , 1 ) a IFM*» 

"3"THEN15S0 

1520 Y$=Y*+M*8lFT>100THENGOTOU2 

0ELSEGOTO1510 

1530 X1=VRL (X* ) a Y1»VRL ( Y* ) s v ( D > « 

URL(L*(Xl,Yl)):O=O+l:GOTOli30 

1540 0=0+1: NEXT b RETURN 
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APLIGATIVO 



Agenda Color 



CP 400 COLOR — VERSAO FITA CASSETE — 64 K RAM 



Este programa foi desenvolvido pa- 
ra as pessoas que nao quercm nunca 
mais esquecer a data de aniversario do 
grandc amigo ou da namorada, do no- 
vo endereco e ielefone daquele repre- 
sentante comercial; ou Iembrar, na 
ultima hora, que o caderninho dc 
agenda ficou em casa ou no escritorio. 
A partir de agora, use seu CP 400 pa- 
ra esta tarefa e armazene sua agenda 
em uma fita cassete. 

Com este programa, voce pode ca- 



dastrar ate 99 pessoas, com nome, en- 
dereco, telefone e data de aniversario; 
com possibilidade de alteracoes ou in- 
clusoes. Mas cuidado para nao cadas- 
trar mais que 99 pessoas, pois o progra- 
ma nao aceitara urn niimero superior. 
O nome e endereco devem ter ate 30 
caracteres e o bairro ate 20. 

Para gerar sua AGENDA COLOR 
ou atualiza-Ia, voce deve usar o item 
Inclusao. Neste item e nos seguintes, 
a operacao deve ser realizada atraves 



de c6digos, que significam a posicao 
em que se encontram os dados de uma 
pessoa especifica. 

No item Aniversariames, voce po- 
de consultar todos os aniversarios de 
um mes em particular. Para voltar ao 
Menu Principal, pressionc ENTER. 

Para salvar os dados, voce deve ter 
o gravador no volume 2 e a leitura de 
dados deve ser realizada no volume 7. 
Depois da gravacao ou leitura, o pro- 
grama volta ao Menu Principal. 



1. ' X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

20 'x R G E N D R * 
30 'x PROLOG I CR * 

MB 'x CP-400 x 

50 'X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



60 M*0sJ=0sI*0 






70 B=0:Y==0:T=0 






80 CLEAR 10000 






90 DIM C<100) 






100 


DIM N*<100) 






110 


DIM T$(100) 






120 


DIM D$(100) 






130 


DIM E*(100) 






140 


DIM B*<100) 






150 


DIM O$<100) 






160 


DIM I$<100) 






170 


DIM C$(100) 






180 


CLS 






190 


PRINT(913r"RGENDfl 


II 


200 


PRINT(?6<4+6r" 


<1> 


INCLUSRO" 


210 


PRINTG96+6," 


<Z> 


C0NSULTR" 


220 


PRINT(M28+6r 


"<3> 


EXCLUSRO" 


230 


PRINTQ160+6, 


"<4> 


RLTEKRCRO" 


240 


PRINTG192+6, 


"<5> 


RNIVERSRRIR 


NTES" 






250 


PRINTQ224+6, 


"<6> 


TOTRL CRDRS 


TRRD0" 






260 


PRINTS256+6, 


" <* 7 > 


SRLVRR OS D 


RD0< 


3" 






270 


PRINTG288+6, 


"<8> 


LEITURR DOS 


DRDOS" 







280 PRINTG320+6r"<9> FTM DO PROG 
RRMR" 

290 PRINT^384,"QURL f ' NUCiERO 

DA SL1R 0PCR0"?:: INPUT 

300 IF 0<1 OR 0>9THENGOTG290 

310 ON GOSUB 330,590,770,930,1 

170, 1420,1 530 r 1730,1480 

320 GOTO180 

330 CLS 

340 PRINTeiS, "INCLUSRO" 

350 PRINT<a32,"C0DIG0"" r : INPUT B 

360 IF B=0THFNRETURN 

370 IF B-=100THENGOTO540 

380 PRINT@64r"N0ME"s :INPUTN*<B) 

390 IFLEK(N*<B) >>30THENPRINT,STR 

ING* ( LEN ( m ( B) > * " " ) : GOSUB550 : GO 

TO330 

400 IFN$(B)=""T'HEN380 

410 PRINT<ai28,"F0NE"; bINPUTT$(B) 

420 PRINT<2160r"RNIV. ,, s:INPIJTD$(B 

) 

430 PRINTG192, "END. " ! B INPUTE*(B) 

440 IFLEN(E$(B) )>30THEMPRINTrSTR 

ING* ( LEN < E* (B> > r " " ) : BOSUB550 = 00 

TO 330 

450 PRINT@256,"BRIRR0"s : INPUTS* < 

B) 

L »60 IFLEN(B*(B) )>20THENPRINT,STR 

ING$ ( LEN ( B* CB> ) , " " ) : GOSUB550 s GO 

TO330 

470 PRINTG288,"CEP"; :INPUT0$(B) 

480 PRINT0320* "CIDRDF" ; : INPUTI* ( 

B) 

490 PRINTQ352 r "ESTRDO" ; : INPUTC* ( 

B) 

500 T«T+1 
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510 PRINT(D416,"DIGITE <G> PRRR C 

ONTINURR"? 

520* fl*=INKEY*::INPUTR*;:IFfl*<>"tf"T 

HENGOTO180ELSE330 

530 RETURN 

540 CLSsPRINT(ai92,"RGENDR COMPLE 

Tfl"sFORL=lTO30-NEXTLs RETURN 

550 CLS!PRINT<3192+6,"RBRE'v'IE PGR 

FRVOR" 
560 SOUND 220, 3 s SOUND 220,3 
570 FORW=1TO1500:NEXTUI 
580 PRINT<ai92+6,STRING*<20," " ) : 
RETURN 
590 CLS 

600 PRINT<312, "CONSULTR" 
610 PRINT(332>"QUflL E' NR. DO C 
ODIGO"?! INPUT B 
620 IF B==0THENRETURN 
630 IF BM00THENGOTO750 
640 PRINT(a6Mr"N0ME s";N*(B) 



s"?T$(B 
:"jD*<B 
:",-E*(B 

:"yB*(B 
:"?0$(B 
:":I*(B 



650 PRINTtfJ.28,"F0NE 

) 

660 PRINT@i607"flNIV. 

) 

670 PRINTQ192,"END. 

) 

680 PRINTG256,"BRIRR0 

) 

690 PRINT<3288,"CEP 

) 

700 PRINT(<!320,"CIDRDE 

) 

710 PRINT@352,"ESTRD0 :"?C*(B 

> 

720 PRINT(5>416,"Q.UER MRIS CONSULT 

R <S/N>"?s INPUT R* 

730 IFR*="S"THENGOTO590ELSE740 

740 RETURN 

750 CLS: PRINTS 192+6, "COD I GO NRG 

CRDRSTRRDO": SOUND 220,5 

760 FORU--1 TO 1 500 sNEXTW: RETURN 

?7& CLS 

780 PRINT@12, "EXCI...USRO" 

790 PRINTti>32,"QUE CODIGO QUER EX 

CI.UIR";: INPUT B 

800 IF B=0THENRETURN 

810 N*<B)="EXCLUIDQ" 

820 T*<B>="EXCLUIDQ" 

830 D*<B)="EXCLUIDO" 

840 E*(B)="EXCLUIDO" 

850 B*(B)="EXCLUIDO" 

860 0$<B)--"FXCLUIDO" 

870 I*(B)="EXCLUIDO" 

880 C*<B)="EXCLUIDO" 

890 T»T-1 

900 PRINT(3416,"DESEJR EXCLUIR MR 

IS RLGUM CODIGO <S/N>" j : INPUTR* 



9 1 IFR*« " S " THEN77OELSE920 

920 RETURN 

930 CLS 

940 PRINTG11,"RI TERRCRO" 

950 PRINT632, "QUE CODIGO QUER RL 

TERRR" y: INPUT & 

960 IF B*0 THEN RETURN 

970 PRINT@64,"QURL CRMPO fl SER 

RI..TERRDO *»" 
980 PRINTG96,"<1> NOME" 
990 PRINT<3128,"<2> TELFFONE" 
100(d. PRINT@160r"<3> DRTR DIZ RNIY 
ERSRRIO" 

1010 PRINTei92»"<4> ENDERECO" 
1020 PRINT(5224,"<5> BRIRRO" 
1030 PRINT<?!256,"<6> CEP" 
1040 PRIN"R?!288,"<7> CIDRDE" 
1. 5 P R I N T 3 320," < 8 > E S T R D ' ' 
1060 PRINTG384."DIGITE NR..CORR 
ESPONDENTE";: INPUT N 
1070 IF N<1 OR N>8 THENRETURN 
1080 ON N GOTO 1090,1100,1110,11 
20 , 1 1 30 , 1 1 40,11 50 , 1 J. 60 
1090 PRINTG448,"N0ME"y sINPUTN*<B 
)s RETURN 

1100 PRINTGMM8r"F0NE"jsINPUTT$<B 
>:RETURN 

1110 PRINT6M48r"RNIV.";:INPUTD$( 
B): RETURN 

1120 pRINTS448,"END." r " :;INPIJTE*(B 
): RETURN 

1130 PRINTQMM8, "BRIRRO"? s INPUTS* 
(B)sRETURN 

1140 PRINTSM48,"CEP"j:INPUT0*<B} 
: i RETURN 

1150 PRINT(i448,"CTDRDE"v SlNPUTJ* 
(B)s RETURN 

1160 PRINT04M8,"ESTRDO"?:I.NPUTC* 
(B)s RETURN 
i 170 CLS 
1180 RESTORE 
1190 PRINT@4,"RNIVERSRRIRNTES DO 

MES" 
1200 PRINT(332,"DIGITE MES R CO 

NSULTRR ?" 

1210 PRINT@64,"MES : " j : INPUT 1)1* 

1220 IF D1**=""THEN RETURN 

1230 RERD R*,R1* 

1240 IFfl*-Dl* OR URL(R1*)=VRL<D:I. 

*)THEN1370:ELSE1230 

1250 DRTR JRNEIRO,"01",FEUEREII : ((1 

,"2"vMRRC0,"3",RBRIL,"4",MRI0,"5 

" , JUNHO , "6" , JULHO r "7" , RGOSTO , "8 " 

, SETEMBRO , "9" , OUTUBRO , " 10" , NOVEM 

BRO , " 1 .1. " r DEZEMBRO , " J 2" 

1260 PRINT(396,"N0MF s";N*..B) 

1270 PRINT(ai60,"FONE s » ? T* v'B) 
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1280 PRINT<ai92,"fiNIV. :";D$<B) 

1290 PRINT<?224.. "END. s";E*<B) 

1300 PRINT<32S8r"BRIRR0 :";B*(B) 

13.10 PRINT<S320,"CEP :";0$(B) 

1320 PRINTG352,"CIDRDE :";I$(B) 

1330 PRINTe3847 u ESTflD0 :"?C*(B) 

13'40 PRINT<3448,"DIGITE «3> P/CON 

TINUflR"? : INPUT Z$ 

1.350 IF Z$O"<3"THEN13H0 

1360 IF 0==5 THEN RETURN 

1370 FORB=1TO100 

1380 IF VRL<fll*)=VRL<MID$<D*<B)» 

Mr 2)) THEN GGSUB 1260 

1390 NEXT B 

14 00 GOTO 1170 

1410 RETURN 

1420 CLS 

1430 PRINTeSr"T0TfiL CRDRSTRRDO" 

1440 PRINT<ai92r"NUMER0 DE ELEMEN 

TOS = ";T 

1450 PRINT<2448,"PRESSI0NE <ENTER 

> PRRR VOLTRR RC) MENU."; 
1460 Z*=INKEY$: INPUT Z* 
1470 IF Z*="" THEN RETURN 
1480 CLS 

1490 PRINT<i!8,"SRIR DO PROGRRMR" 

1500 PRINT@192r"DESEJfl SRIR DO P 

ROGRRMR <S/N>"; 

15.1.0 INPUT R$ 

1520 IF R$="N"THENRETURN ELSE EN 

D 

1530 CLS 

1540 PRINT@128r"PRRR SRI..VRR ITEN 

S NR FITR" 

1550 PRINTG160»"POSICI0NE R FITR 
ii 

1.560 PRINT@192,"P'RESSI0NF PI..RY E 

RECORD" 
1570 PRINT6224»"PRESSI0NE <ENTER 

> QURNDO PRONTO"; 
1580 INPUT Q* 

1600 OPEN "Q" »**-!» "AGENDA" 

1610 FOR B=1TO100 

1620 PRINT#-1,N*(B) 

1630 PRXNT#-1»T$(B) 

1640 PRINT«-irD*(B) 

1.650 PRINTtt-l.E*<B) 

1660 PRINT8-1,B*(B) 

1670 PRINT**- 1,0*<B) 

1680 PRINT**-! »I*(B) 

1690 PRINT**-1,C*(B) 

1700 PR.TNT**-1,B 



8 



171.0 NEXTB 

1720 CLOSE4*~1b RETURN 

1730 CLSsB=0 

1740 PRINT(1128r "PflRR CRRREGRR IT 

ENS DA FITR" 

1750 PRINTG160»"RETROCEDfl fl FITR 

ii 

1760 PRINT<3192»"PRESSIONE PLRY" 

1770 PRlNT<3224r"PRESSI0NE <ENTER 

> QURNDO PRONTO"; 

1.780 INPUT Q* 

1800 OPEN"I"r«-l."RGENDR" 

1810 FOP. B=1T0100 

1820 IF EOf-"(-l )THEN2060 

1830 INPUT#-lrN*(B) 

1840 INPUT«t1tT$(B> 

1850 INPUT#-irD*<B) 

i860 INPUT«-1»E*(B) 

1870 INPUT#-lrB*<B) 

1880 INPUTtt-l»0$<B) 

1890 INPUT**--!, I$(B) 

1900 INPUTtt-l*C$(B) 

1910 INPUT**-! ,B 

1.920 CLS 

1930 PRINT€96»"N0ME ::";N$(B 

) 

1.940 PRINTS160,"FONE s";T*( 

B) 

195© PRINT(2192,"fiNIV.. ::" ;D$( 

B> 

1960 PRINTG224,"END. b"?E*< 

B) 

1.970 PRINTS2S8r"BRIRRQ s";B*< 

B) 

1.980 PRINTS320»"CEP :"jO*< 

B) 

1990 , PRINT@352,"CIDRDE s";I*( 

B) 

2000 PRINT@38M*"ESTRD0 : " ; C$ ( 

B) 

2010 PRINT®32»"C0DIB0:" T B 

2050 NEXTsB=0 

2060 CLOSE**-!: RETURN 
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